/ Developer CD Series 1996 June: Reference Library / Dev.CD Jun 96 RL / Dev.CD Jun 96 RL.toast / Technical Documentation / develop / develop Issue 6 / develop Issue 6 code / TCP.sea / TCP / NewsWatcher / NW Source / Source / aevt.c

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 06 61 65 76 74 2e 63 | 00 00 00 00 00 00 00 00 |..aevt.c|........|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 4d 43 | 43 01 00 00 00 00 00 00 |.TEXTMMC|C.......|
|00000050| 00 00 00 00 00 32 67 00 | 00 01 9a ab e8 45 6a ab |.....2g.|.....Ej.|
|00000060| e8 45 6a 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.Ej.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 7c ea 00 00 |........|....|...|
|00000080| 2f 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |/*------|--------|
|00000090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 0d |--------|------..|
|000000d0| 09 61 65 76 74 2e 63 0d | 0d 09 54 68 69 73 20 6d |.aevt.c.|..This m|
|000000e0| 6f 64 75 6c 65 20 68 61 | 6e 64 6c 65 73 20 41 70 |odule ha|ndles Ap|
|000000f0| 70 6c 65 20 65 76 65 6e | 74 73 2e 0d 09 0d 09 43 |ple even|ts.....C|
|00000100| 6f 70 79 72 69 67 68 74 | 20 a9 20 31 39 39 34 2d |opyright| . 1994-|
|00000110| 31 39 39 35 2c 20 4e 6f | 72 74 68 77 65 73 74 65 |1995, No|rthweste|
|00000120| 72 6e 20 55 6e 69 76 65 | 72 73 69 74 79 2e 0d 0d |rn Unive|rsity...|
|00000130| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000140| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000160| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000170| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2a 2f 0d 0d |--------|----*/..|
|00000180| 23 69 6e 63 6c 75 64 65 | 20 3c 73 74 64 69 6f 2e |#include| <stdio.|
|00000190| 68 3e 0d 0d 23 69 6e 63 | 6c 75 64 65 20 22 67 6c |h>..#inc|lude "gl|
|000001a0| 6f 62 2e 68 22 0d 23 69 | 6e 63 6c 75 64 65 20 22 |ob.h".#i|nclude "|
|000001b0| 61 65 76 74 2e 68 22 0d | 23 69 6e 63 6c 75 64 65 |aevt.h".|#include|
|000001c0| 20 22 64 69 61 6c 6f 67 | 2e 68 22 0d 23 69 6e 63 | "dialog|.h".#inc|
|000001d0| 6c 75 64 65 20 22 6e 65 | 77 73 72 63 2e 68 22 0d |lude "ne|wsrc.h".|
|000001e0| 23 69 6e 63 6c 75 64 65 | 20 22 6d 65 6d 75 74 69 |#include| "memuti|
|000001f0| 6c 2e 68 22 0d 23 69 6e | 63 6c 75 64 65 20 22 6d |l.h".#in|clude "m|
|00000200| 65 73 73 61 67 65 2e 68 | 22 0d 23 69 6e 63 6c 75 |essage.h|".#inclu|
|00000210| 64 65 20 22 67 72 6f 75 | 70 2e 68 22 0d 23 69 6e |de "grou|p.h".#in|
|00000220| 63 6c 75 64 65 20 22 6e | 65 77 73 77 61 74 63 68 |clude "n|ewswatch|
|00000230| 65 72 2e 68 22 0d 23 69 | 6e 63 6c 75 64 65 20 22 |er.h".#i|nclude "|
|00000240| 73 74 61 74 75 73 2e 68 | 22 0d 23 69 6e 63 6c 75 |status.h|".#inclu|
|00000250| 64 65 20 22 66 75 6c 6c | 2e 68 22 0d 23 69 6e 63 |de "full|.h".#inc|
|00000260| 6c 75 64 65 20 22 73 75 | 62 73 63 72 69 62 65 2e |lude "su|bscribe.|
|00000270| 68 22 0d 23 69 6e 63 6c | 75 64 65 20 22 70 72 69 |h".#incl|ude "pri|
|00000280| 6e 74 2e 68 22 0d 23 69 | 6e 63 6c 75 64 65 20 22 |nt.h".#i|nclude "|
|00000290| 77 69 6e 64 75 74 69 6c | 2e 68 22 0d 23 69 6e 63 |windutil|.h".#inc|
|000002a0| 6c 75 64 65 20 22 77 69 | 6e 64 2e 68 22 0d 23 69 |lude "wi|nd.h".#i|
|000002b0| 6e 63 6c 75 64 65 20 22 | 75 72 6c 2e 68 22 0d 0d |nclude "|url.h"..|
|000002c0| 0d 0d 23 64 65 66 69 6e | 65 20 6b 49 6e 69 74 69 |..#defin|e kIniti|
|000002d0| 61 6c 47 72 6f 75 70 73 | 52 65 73 49 64 09 09 32 |alGroups|ResId..2|
|000002e0| 30 30 09 09 09 2f 2a 20 | 53 54 52 23 20 72 65 73 |00.../* |STR# res|
|000002f0| 6f 75 72 63 65 20 69 64 | 20 6f 66 20 69 6e 74 69 |ource id| of inti|
|00000300| 61 6c 20 67 72 6f 75 70 | 20 6c 69 73 74 0d 09 09 |al group| list...|
|00000310| 09 09 09 09 09 09 09 09 | 09 20 20 20 63 75 73 74 |........|.   cust|
|00000320| 6f 6d 69 7a 61 74 69 6f | 6e 20 72 65 73 6f 75 72 |omizatio|n resour|
|00000330| 63 65 20 2a 2f 0d 0d 23 | 64 65 66 69 6e 65 20 6b |ce */..#|define k|
|00000340| 4f 70 65 6e 50 72 65 66 | 73 46 69 6c 65 44 6c 67 |OpenPref|sFileDlg|
|00000350| 09 09 09 09 31 35 36 0d | 23 64 65 66 69 6e 65 20 |....156.|#define |
|00000360| 6b 4f 70 65 6e 50 72 65 | 66 73 46 69 6c 65 44 6c |kOpenPre|fsFileDl|
|00000370| 67 51 75 69 74 49 74 65 | 6d 09 09 31 0d 0d 0d 0d |gQuitIte|m..1....|
|00000380| 73 74 61 74 69 63 20 41 | 70 70 6c 65 45 76 65 6e |static A|ppleEven|
|00000390| 74 20 2a 67 46 69 72 73 | 74 45 76 65 6e 74 3b 0d |t *gFirs|tEvent;.|
|000003a0| 73 74 61 74 69 63 20 41 | 70 70 6c 65 45 76 65 6e |static A|ppleEven|
|000003b0| 74 20 2a 67 46 69 72 73 | 74 52 65 70 6c 79 3b 0d |t *gFirs|tReply;.|
|000003c0| 0d 73 74 61 74 69 63 20 | 41 45 45 76 65 6e 74 48 |.static |AEEventH|
|000003d0| 61 6e 64 6c 65 72 55 50 | 50 20 67 48 61 6e 64 6c |andlerUP|P gHandl|
|000003e0| 65 4f 41 50 50 55 50 50 | 3b 0d 73 74 61 74 69 63 |eOAPPUPP|;.static|
|000003f0| 20 41 45 45 76 65 6e 74 | 48 61 6e 64 6c 65 72 55 | AEEvent|HandlerU|
|00000400| 50 50 20 67 48 61 6e 64 | 6c 65 4f 44 4f 43 55 50 |PP gHand|leODOCUP|
|00000410| 50 3b 0d 73 74 61 74 69 | 63 20 41 45 45 76 65 6e |P;.stati|c AEEven|
|00000420| 74 48 61 6e 64 6c 65 72 | 55 50 50 20 67 48 61 6e |tHandler|UPP gHan|
|00000430| 64 6c 65 50 44 4f 43 55 | 50 50 3b 0d 73 74 61 74 |dlePDOCU|PP;.stat|
|00000440| 69 63 20 41 45 45 76 65 | 6e 74 48 61 6e 64 6c 65 |ic AEEve|ntHandle|
|00000450| 72 55 50 50 20 67 48 61 | 6e 64 6c 65 51 55 49 54 |rUPP gHa|ndleQUIT|
|00000460| 55 50 50 3b 0d 73 74 61 | 74 69 63 20 41 45 45 76 |UPP;.sta|tic AEEv|
|00000470| 65 6e 74 48 61 6e 64 6c | 65 72 55 50 50 20 67 48 |entHandl|erUPP gH|
|00000480| 61 6e 64 6c 65 47 55 52 | 4c 55 50 50 3b 0d 73 74 |andleGUR|LUPP;.st|
|00000490| 61 74 69 63 20 41 45 45 | 76 65 6e 74 48 61 6e 64 |atic AEE|ventHand|
|000004a0| 6c 65 72 55 50 50 20 67 | 48 61 6e 64 6c 65 46 69 |lerUPP g|HandleFi|
|000004b0| 72 73 74 45 76 65 6e 74 | 55 50 50 3b 0d 0d 0d 0d |rstEvent|UPP;....|
|000004c0| 2f 2a 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |/*------|--------|
|000004d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000004e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000004f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000500| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 0d 09 |--------|------..|
|00000510| 4d 79 47 6f 74 52 65 71 | 75 69 72 65 64 50 61 72 |MyGotReq|uiredPar|
|00000520| 61 6d 73 20 0d 09 0d 09 | 43 68 65 63 6b 20 66 6f |ams ....|Check fo|
|00000530| 72 20 75 6e 65 78 70 65 | 63 74 65 64 20 72 65 71 |r unexpe|cted req|
|00000540| 75 69 72 65 64 20 70 61 | 72 61 6d 65 74 65 72 73 |uired pa|rameters|
|00000550| 2e 20 53 65 65 20 4e 49 | 4d 3a 49 41 43 20 34 2d |. See NI|M:IAC 4-|
|00000560| 33 35 2e 0d 09 0d 09 45 | 6e 74 72 79 3a 09 65 76 |35.....E|ntry:.ev|
|00000570| 65 6e 74 20 3d 20 70 6f | 69 6e 74 65 72 20 74 6f |ent = po|inter to|
|00000580| 20 65 76 65 6e 74 2e 0d | 09 0d 09 45 78 69 74 3a | event..|...Exit:|
|00000590| 09 66 75 6e 63 74 69 6f | 6e 20 72 65 73 75 6c 74 |.functio|n result|
|000005a0| 20 3d 20 65 72 72 6f 72 | 20 63 6f 64 65 20 28 65 | = error| code (e|
|000005b0| 72 72 41 45 50 61 72 61 | 6d 4d 69 73 73 65 64 20 |rrAEPara|mMissed |
|000005c0| 69 66 20 75 6e 65 78 70 | 65 63 74 65 64 0d 09 09 |if unexp|ected...|
|000005d0| 09 09 72 65 71 75 69 72 | 65 64 20 70 61 72 61 6d |..requir|ed param|
|000005e0| 65 74 65 72 29 2e 0d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |eter)..-|--------|
|000005f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000600| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000610| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000620| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000630| 2d 2d 2d 2a 2f 0d 0d 73 | 74 61 74 69 63 20 4f 53 |---*/..s|tatic OS|
|00000640| 45 72 72 20 4d 79 47 6f | 74 52 65 71 75 69 72 65 |Err MyGo|tRequire|
|00000650| 64 50 61 72 61 6d 73 20 | 28 41 70 70 6c 65 45 76 |dParams |(AppleEv|
|00000660| 65 6e 74 20 2a 65 76 65 | 6e 74 29 0d 7b 0d 09 4f |ent *eve|nt).{..O|
|00000670| 53 45 72 72 20 65 72 72 | 20 3d 20 6e 6f 45 72 72 |SErr err| = noErr|
|00000680| 3b 0d 09 44 65 73 63 54 | 79 70 65 20 72 65 74 75 |;..DescT|ype retu|
|00000690| 72 6e 65 64 54 79 70 65 | 3b 0d 09 53 69 7a 65 20 |rnedType|;..Size |
|000006a0| 61 63 74 75 61 6c 53 69 | 7a 65 3b 0d 09 0d 09 65 |actualSi|ze;....e|
|000006b0| 72 72 20 3d 20 41 45 47 | 65 74 41 74 74 72 69 62 |rr = AEG|etAttrib|
|000006c0| 75 74 65 50 74 72 28 65 | 76 65 6e 74 2c 20 6b 65 |utePtr(e|vent, ke|
|000006d0| 79 4d 69 73 73 65 64 4b | 65 79 77 6f 72 64 41 74 |yMissedK|eywordAt|
|000006e0| 74 72 2c 20 74 79 70 65 | 57 69 6c 64 43 61 72 64 |tr, type|WildCard|
|000006f0| 2c 0d 09 09 26 72 65 74 | 75 72 6e 65 64 54 79 70 |,...&ret|urnedTyp|
|00000700| 65 2c 20 6e 69 6c 2c 20 | 30 2c 20 26 61 63 74 75 |e, nil, |0, &actu|
|00000710| 61 6c 53 69 7a 65 29 3b | 0d 09 72 65 74 75 72 6e |alSize);|..return|
|00000720| 20 65 72 72 20 3d 3d 20 | 65 72 72 41 45 44 65 73 | err == |errAEDes|
|00000730| 63 4e 6f 74 46 6f 75 6e | 64 20 3f 20 6e 6f 45 72 |cNotFoun|d ? noEr|
|00000740| 72 20 3a 20 65 72 72 41 | 45 50 61 72 61 6d 4d 69 |r : errA|EParamMi|
|00000750| 73 73 65 64 3b 0d 7d 0d | 0d 0d 0d 2f 2a 2d 2d 2d |ssed;.}.|.../*---|
|00000760| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000770| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000780| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000790| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 09 48 61 6e 64 6c |--------|-..Handl|
|000007b0| 65 4f 41 50 50 20 0d 09 | 0d 09 48 61 6e 64 6c 65 |eOAPP ..|..Handle|
|000007c0| 20 74 68 65 20 6f 70 65 | 6e 20 61 70 70 6c 69 63 | the ope|n applic|
|000007d0| 61 74 69 6f 6e 20 65 76 | 65 6e 74 2e 0d 2d 2d 2d |ation ev|ent..---|
|000007e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000800| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000810| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000820| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2a 2f 0d 0d 73 74 61 |--------|-*/..sta|
|00000830| 74 69 63 20 70 61 73 63 | 61 6c 20 4f 53 45 72 72 |tic pasc|al OSErr|
|00000840| 20 48 61 6e 64 6c 65 4f | 41 50 50 20 28 41 70 70 | HandleO|APP (App|
|00000850| 6c 65 45 76 65 6e 74 20 | 2a 65 76 65 6e 74 2c 20 |leEvent |*event, |
|00000860| 41 70 70 6c 65 45 76 65 | 6e 74 20 2a 72 65 70 6c |AppleEve|nt *repl|
|00000870| 79 2c 20 6c 6f 6e 67 20 | 72 65 66 63 6f 6e 29 0d |y, long |refcon).|
|00000880| 7b 0d 09 57 69 6e 64 6f | 77 50 74 72 20 77 69 6e |{..Windo|wPtr win|
|00000890| 64 3b 0d 09 4f 53 45 72 | 72 20 65 72 72 20 3d 20 |d;..OSEr|r err = |
|000008a0| 6e 6f 45 72 72 3b 0d 09 | 42 6f 6f 6c 65 61 6e 20 |noErr;..|Boolean |
|000008b0| 61 64 64 69 6e 67 49 6e | 69 74 69 61 6c 53 75 62 |addingIn|itialSub|
|000008c0| 73 63 72 69 62 65 64 47 | 72 6f 75 70 73 53 74 61 |scribedG|roupsSta|
|000008d0| 74 75 73 4d 65 73 61 67 | 65 44 69 73 70 6c 61 79 |tusMesag|eDisplay|
|000008e0| 65 64 20 3d 20 66 61 6c | 73 65 3b 0d 09 73 68 6f |ed = fal|se;..sho|
|000008f0| 72 74 20 69 3b 0d 09 53 | 74 72 32 35 35 20 67 72 |rt i;..S|tr255 gr|
|00000900| 6f 75 70 4e 61 6d 65 3b | 0d 09 6c 6f 6e 67 20 67 |oupName;|..long g|
|00000910| 72 6f 75 70 49 6e 64 65 | 78 3b 0d 09 6c 6f 6e 67 |roupInde|x;..long|
|00000920| 20 6e 61 6d 65 4f 66 66 | 73 65 74 3b 0d 0d 09 65 | nameOff|set;...e|
|00000930| 72 72 20 3d 20 4d 79 47 | 6f 74 52 65 71 75 69 72 |rr = MyG|otRequir|
|00000940| 65 64 50 61 72 61 6d 73 | 28 65 76 65 6e 74 29 3b |edParams|(event);|
|00000950| 0d 09 69 66 20 28 65 72 | 72 20 21 3d 20 6e 6f 45 |..if (er|r != noE|
|00000960| 72 72 29 20 67 6f 74 6f | 20 65 78 69 74 3b 0d 09 |rr) goto| exit;..|
|00000970| 69 66 20 28 67 53 74 61 | 72 74 69 6e 67 55 70 29 |if (gSta|rtingUp)|
|00000980| 20 7b 0d 09 09 69 66 20 | 28 67 50 72 65 66 73 2e | {...if |(gPrefs.|
|00000990| 61 75 74 6f 46 65 74 63 | 68 4e 65 77 73 72 63 29 |autoFetc|hNewsrc)|
|000009a0| 20 72 65 74 75 72 6e 20 | 6e 6f 45 72 72 3b 0d 09 | return |noErr;..|
|000009b0| 09 65 72 72 20 3d 20 4d | 61 6b 65 4e 65 77 55 6e |.err = M|akeNewUn|
|000009c0| 74 69 74 6c 65 64 55 73 | 65 72 47 72 6f 75 70 57 |titledUs|erGroupW|
|000009d0| 69 6e 64 6f 77 28 26 77 | 69 6e 64 29 3b 0d 09 09 |indow(&w|ind);...|
|000009e0| 69 66 20 28 65 72 72 20 | 21 3d 20 6e 6f 45 72 72 |if (err |!= noErr|
|000009f0| 29 20 67 6f 74 6f 20 65 | 78 69 74 3b 0d 09 09 53 |) goto e|xit;...S|
|00000a00| 65 6e 64 42 65 68 69 6e | 64 28 77 69 6e 64 2c 20 |endBehin|d(wind, |
|00000a10| 6e 69 6c 29 3b 0d 09 09 | 69 66 20 28 21 67 50 72 |nil);...|if (!gPr|
|00000a20| 65 66 73 46 69 6c 65 46 | 6f 75 6e 64 41 74 53 74 |efsFileF|oundAtSt|
|00000a30| 61 72 74 75 70 29 20 7b | 0d 09 09 09 69 20 3d 20 |artup) {|....i = |
|00000a40| 31 3b 0d 09 09 09 77 68 | 69 6c 65 20 28 74 72 75 |1;....wh|ile (tru|
|00000a50| 65 29 20 7b 0d 09 09 09 | 09 2a 67 72 6f 75 70 4e |e) {....|.*groupN|
|00000a60| 61 6d 65 20 3d 20 30 3b | 0d 09 09 09 09 47 65 74 |ame = 0;|.....Get|
|00000a70| 49 6e 64 53 74 72 69 6e | 67 28 67 72 6f 75 70 4e |IndStrin|g(groupN|
|00000a80| 61 6d 65 2c 20 6b 49 6e | 69 74 69 61 6c 47 72 6f |ame, kIn|itialGro|
|00000a90| 75 70 73 52 65 73 49 64 | 2c 20 69 29 3b 0d 09 09 |upsResId|, i);...|
|00000aa0| 09 09 69 66 20 28 2a 67 | 72 6f 75 70 4e 61 6d 65 |..if (*g|roupName|
|00000ab0| 20 3d 3d 20 30 29 20 62 | 72 65 61 6b 3b 0d 09 09 | == 0) b|reak;...|
|00000ac0| 09 09 69 66 20 28 21 61 | 64 64 69 6e 67 49 6e 69 |..if (!a|ddingIni|
|00000ad0| 74 69 61 6c 53 75 62 73 | 63 72 69 62 65 64 47 72 |tialSubs|cribedGr|
|00000ae0| 6f 75 70 73 53 74 61 74 | 75 73 4d 65 73 61 67 65 |oupsStat|usMesage|
|00000af0| 44 69 73 70 6c 61 79 65 | 64 29 20 7b 0d 09 09 09 |Displaye|d) {....|
|00000b00| 09 09 65 72 72 20 3d 20 | 44 69 73 70 6c 61 79 53 |..err = |DisplayS|
|00000b10| 74 61 74 75 73 4d 65 73 | 73 61 67 65 4e 75 6d 62 |tatusMes|sageNumb|
|00000b20| 65 72 28 6b 53 74 72 41 | 64 64 69 6e 67 49 6e 69 |er(kStrA|ddingIni|
|00000b30| 74 69 61 6c 53 75 62 73 | 63 72 69 62 65 64 47 72 |tialSubs|cribedGr|
|00000b40| 6f 75 70 73 29 3b 0d 09 | 09 09 09 09 69 66 20 28 |oups);..|....if (|
|00000b50| 65 72 72 20 21 3d 20 6e | 6f 45 72 72 29 20 67 6f |err != n|oErr) go|
|00000b60| 74 6f 20 65 78 69 74 3b | 0d 09 09 09 09 09 61 64 |to exit;|......ad|
|00000b70| 64 69 6e 67 49 6e 69 74 | 69 61 6c 53 75 62 73 63 |dingInit|ialSubsc|
|00000b80| 72 69 62 65 64 47 72 6f | 75 70 73 53 74 61 74 75 |ribedGro|upsStatu|
|00000b90| 73 4d 65 73 61 67 65 44 | 69 73 70 6c 61 79 65 64 |sMesageD|isplayed|
|00000ba0| 20 3d 20 74 72 75 65 3b | 0d 09 09 09 09 7d 0d 09 | = true;|.....}..|
|00000bb0| 09 09 09 70 32 63 73 74 | 72 28 67 72 6f 75 70 4e |...p2cst|r(groupN|
|00000bc0| 61 6d 65 29 3b 0d 09 09 | 09 09 67 72 6f 75 70 49 |ame);...|..groupI|
|00000bd0| 6e 64 65 78 20 3d 20 46 | 69 6e 64 47 72 6f 75 70 |ndex = F|indGroup|
|00000be0| 49 6e 64 65 78 28 28 63 | 68 61 72 2a 29 67 72 6f |Index((c|har*)gro|
|00000bf0| 75 70 4e 61 6d 65 29 3b | 0d 09 09 09 09 69 66 20 |upName);|.....if |
|00000c00| 28 67 72 6f 75 70 49 6e | 64 65 78 20 21 3d 20 2d |(groupIn|dex != -|
|00000c10| 31 29 20 7b 0d 09 09 09 | 09 09 6e 61 6d 65 4f 66 |1) {....|..nameOf|
|00000c20| 66 73 65 74 20 3d 20 28 | 2a 67 46 75 6c 6c 47 72 |fset = (|*gFullGr|
|00000c30| 6f 75 70 41 72 72 61 79 | 29 5b 67 72 6f 75 70 49 |oupArray|)[groupI|
|00000c40| 6e 64 65 78 5d 2e 6e 61 | 6d 65 4f 66 66 73 65 74 |ndex].na|meOffset|
|00000c50| 3b 0d 09 09 09 09 09 65 | 72 72 20 3d 20 41 64 64 |;......e|rr = Add|
|00000c60| 4e 65 77 47 72 6f 75 70 | 28 6e 61 6d 65 4f 66 66 |NewGroup|(nameOff|
|00000c70| 73 65 74 2c 20 77 69 6e | 64 2c 20 30 78 37 66 66 |set, win|d, 0x7ff|
|00000c80| 66 2c 20 6e 69 6c 2c 20 | 66 61 6c 73 65 29 3b 0d |f, nil, |false);.|
|00000c90| 09 09 09 09 09 69 66 20 | 28 65 72 72 20 21 3d 20 |.....if |(err != |
|00000ca0| 6e 6f 45 72 72 29 20 67 | 6f 74 6f 20 65 78 69 74 |noErr) g|oto exit|
|00000cb0| 3b 0d 09 09 09 09 7d 0d | 09 09 09 09 69 2b 2b 3b |;.....}.|....i++;|
|00000cc0| 0d 09 09 09 7d 0d 09 09 | 09 65 72 72 20 3d 20 44 |....}...|.err = D|
|00000cd0| 6f 5a 6f 6f 6d 28 77 69 | 6e 64 2c 20 69 6e 5a 6f |oZoom(wi|nd, inZo|
|00000ce0| 6f 6d 4f 75 74 29 3b 0d | 09 09 09 69 66 20 28 65 |omOut);.|...if (e|
|00000cf0| 72 72 20 21 3d 20 6e 6f | 45 72 72 29 20 67 6f 74 |rr != no|Err) got|
|00000d00| 6f 20 65 78 69 74 3b 0d | 09 09 7d 0d 09 09 72 65 |o exit;.|..}...re|
|00000d10| 74 75 72 6e 20 6e 6f 45 | 72 72 3b 0d 09 7d 20 65 |turn noE|rr;..} e|
|00000d20| 6c 73 65 20 7b 0d 09 09 | 69 66 20 28 21 67 53 74 |lse {...|if (!gSt|
|00000d30| 61 72 74 75 70 4f 4b 29 | 20 72 65 74 75 72 6e 20 |artupOK)| return |
|00000d40| 75 73 65 72 43 61 6e 63 | 65 6c 65 64 45 72 72 3b |userCanc|eledErr;|
|00000d50| 0d 09 09 72 65 74 75 72 | 6e 20 4d 61 6b 65 4e 65 |...retur|n MakeNe|
|00000d60| 77 55 6e 74 69 74 6c 65 | 64 55 73 65 72 47 72 6f |wUntitle|dUserGro|
|00000d70| 75 70 57 69 6e 64 6f 77 | 28 26 77 69 6e 64 29 3b |upWindow|(&wind);|
|00000d80| 0d 09 7d 0d 09 0d 65 78 | 69 74 3a 0d 09 0d 09 52 |..}...ex|it:....R|
|00000d90| 65 70 6f 72 74 53 79 73 | 74 65 6d 45 72 72 6f 72 |eportSys|temError|
|00000da0| 28 65 72 72 29 3b 0d 09 | 72 65 74 75 72 6e 20 65 |(err);..|return e|
|00000db0| 72 72 3b 0d 7d 0d 0d 0d | 0d 2f 2a 2d 2d 2d 2d 2d |rr;.}...|./*-----|
|00000dc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000dd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000de0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000df0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e00| 2d 2d 2d 2d 2d 2d 2d 0d | 09 48 61 6e 64 6c 65 4f |-------.|.HandleO|
|00000e10| 44 4f 43 20 0d 09 0d 09 | 48 61 6e 64 6c 65 20 74 |DOC ....|Handle t|
|00000e20| 68 65 20 6f 70 65 6e 20 | 64 6f 63 75 6d 65 6e 74 |he open |document|
|00000e30| 20 65 76 65 6e 74 2e 0d | 2d 2d 2d 2d 2d 2d 2d 2d | event..|--------|
|00000e40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e80| 2d 2d 2d 2d 2a 2f 0d 0d | 73 74 61 74 69 63 20 70 |----*/..|static p|
|00000e90| 61 73 63 61 6c 20 4f 53 | 45 72 72 20 48 61 6e 64 |ascal OS|Err Hand|
|00000ea0| 6c 65 4f 44 4f 43 20 28 | 41 70 70 6c 65 45 76 65 |leODOC (|AppleEve|
|00000eb0| 6e 74 20 2a 65 76 65 6e | 74 2c 20 41 70 70 6c 65 |nt *even|t, Apple|
|00000ec0| 45 76 65 6e 74 20 2a 72 | 65 70 6c 79 2c 20 6c 6f |Event *r|eply, lo|
|00000ed0| 6e 67 20 72 65 66 63 6f | 6e 29 0d 7b 0d 09 4f 53 |ng refco|n).{..OS|
|00000ee0| 45 72 72 20 65 72 72 20 | 3d 20 6e 6f 45 72 72 3b |Err err |= noErr;|
|00000ef0| 0d 09 41 45 44 65 73 63 | 4c 69 73 74 20 64 6f 63 |..AEDesc|List doc|
|00000f00| 4c 69 73 74 20 3d 20 7b | 30 2c 20 6e 69 6c 7d 3b |List = {|0, nil};|
|00000f10| 0d 09 6c 6f 6e 67 20 6e | 75 6d 49 74 65 6d 73 2c |..long n|umItems,|
|00000f20| 20 69 3b 0d 09 41 45 4b | 65 79 77 6f 72 64 20 6b | i;..AEK|eyword k|
|00000f30| 65 79 77 64 3b 0d 09 44 | 65 73 63 54 79 70 65 20 |eywd;..D|escType |
|00000f40| 72 65 74 75 72 6e 65 64 | 54 79 70 65 3b 0d 09 53 |returned|Type;..S|
|00000f50| 69 7a 65 20 61 63 74 75 | 61 6c 53 69 7a 65 3b 0d |ize actu|alSize;.|
|00000f60| 09 46 53 53 70 65 63 20 | 66 53 70 65 63 3b 0d 09 |.FSSpec |fSpec;..|
|00000f70| 46 49 6e 66 6f 20 66 6e | 64 72 49 6e 66 6f 3b 0d |FInfo fn|drInfo;.|
|00000f80| 09 44 69 61 6c 6f 67 50 | 74 72 20 64 6c 67 3b 0d |.DialogP|tr dlg;.|
|00000f90| 09 73 68 6f 72 74 20 69 | 74 65 6d 3b 0d 09 57 69 |.short i|tem;..Wi|
|00000fa0| 6e 64 6f 77 50 74 72 20 | 77 69 6e 64 3b 0d 09 0d |ndowPtr |wind;...|
|00000fb0| 09 69 66 20 28 21 67 53 | 74 61 72 74 75 70 4f 4b |.if (!gS|tartupOK|
|00000fc0| 29 20 72 65 74 75 72 6e | 20 75 73 65 72 43 61 6e |) return| userCan|
|00000fd0| 63 65 6c 65 64 45 72 72 | 3b 0d 09 65 72 72 20 3d |celedErr|;..err =|
|00000fe0| 20 41 45 47 65 74 50 61 | 72 61 6d 44 65 73 63 28 | AEGetPa|ramDesc(|
|00000ff0| 65 76 65 6e 74 2c 20 6b | 65 79 44 69 72 65 63 74 |event, k|eyDirect|
|00001000| 4f 62 6a 65 63 74 2c 20 | 74 79 70 65 41 45 4c 69 |Object, |typeAELi|
|00001010| 73 74 2c 20 26 64 6f 63 | 4c 69 73 74 29 3b 0d 09 |st, &doc|List);..|
|00001020| 69 66 20 28 65 72 72 20 | 21 3d 20 6e 6f 45 72 72 |if (err |!= noErr|
|00001030| 29 20 67 6f 74 6f 20 65 | 78 69 74 3b 0d 09 65 72 |) goto e|xit;..er|
|00001040| 72 20 3d 20 4d 79 47 6f | 74 52 65 71 75 69 72 65 |r = MyGo|tRequire|
|00001050| 64 50 61 72 61 6d 73 28 | 65 76 65 6e 74 29 3b 0d |dParams(|event);.|
|00001060| 09 69 66 20 28 65 72 72 | 20 21 3d 20 6e 6f 45 72 |.if (err| != noEr|
|00001070| 72 29 20 67 6f 74 6f 20 | 65 78 69 74 3b 0d 09 65 |r) goto |exit;..e|
|00001080| 72 72 20 3d 20 41 45 43 | 6f 75 6e 74 49 74 65 6d |rr = AEC|ountItem|
|00001090| 73 28 26 64 6f 63 4c 69 | 73 74 2c 20 26 6e 75 6d |s(&docLi|st, &num|
|000010a0| 49 74 65 6d 73 29 3b 0d | 09 69 66 20 28 65 72 72 |Items);.|.if (err|
|000010b0| 20 21 3d 20 6e 6f 45 72 | 72 29 20 67 6f 74 6f 20 | != noEr|r) goto |
|000010c0| 65 78 69 74 3b 0d 09 66 | 6f 72 20 28 69 20 3d 20 |exit;..f|or (i = |
|000010d0| 31 3b 20 69 20 3c 3d 20 | 6e 75 6d 49 74 65 6d 73 |1; i <= |numItems|
|000010e0| 3b 20 69 2b 2b 29 20 7b | 0d 09 09 65 72 72 20 3d |; i++) {|...err =|
|000010f0| 20 41 45 47 65 74 4e 74 | 68 50 74 72 28 26 64 6f | AEGetNt|hPtr(&do|
|00001100| 63 4c 69 73 74 2c 20 69 | 2c 20 74 79 70 65 46 53 |cList, i|, typeFS|
|00001110| 53 2c 20 26 6b 65 79 77 | 64 2c 20 26 72 65 74 75 |S, &keyw|d, &retu|
|00001120| 72 6e 65 64 54 79 70 65 | 2c 0d 09 09 09 28 50 74 |rnedType|,....(Pt|
|00001130| 72 29 26 66 53 70 65 63 | 2c 20 73 69 7a 65 6f 66 |r)&fSpec|, sizeof|
|00001140| 28 66 53 70 65 63 29 2c | 20 26 61 63 74 75 61 6c |(fSpec),| &actual|
|00001150| 53 69 7a 65 29 3b 0d 09 | 09 69 66 20 28 65 72 72 |Size);..|.if (err|
|00001160| 20 21 3d 20 6e 6f 45 72 | 72 29 20 67 6f 74 6f 20 | != noEr|r) goto |
|00001170| 65 78 69 74 3b 0d 09 09 | 65 72 72 20 3d 20 46 53 |exit;...|err = FS|
|00001180| 70 47 65 74 46 49 6e 66 | 6f 28 26 66 53 70 65 63 |pGetFInf|o(&fSpec|
|00001190| 2c 20 26 66 6e 64 72 49 | 6e 66 6f 29 3b 0d 09 09 |, &fndrI|nfo);...|
|000011a0| 69 66 20 28 65 72 72 20 | 21 3d 20 6e 6f 45 72 72 |if (err |!= noErr|
|000011b0| 29 20 67 6f 74 6f 20 65 | 78 69 74 3b 0d 09 09 69 |) goto e|xit;...i|
|000011c0| 66 20 28 66 6e 64 72 49 | 6e 66 6f 2e 66 64 54 79 |f (fndrI|nfo.fdTy|
|000011d0| 70 65 20 3d 3d 20 6b 50 | 72 65 66 73 46 69 6c 65 |pe == kP|refsFile|
|000011e0| 54 79 70 65 20 26 26 20 | 21 67 53 74 61 72 74 69 |Type && |!gStarti|
|000011f0| 6e 67 55 70 29 20 67 6f | 74 6f 20 65 78 69 74 31 |ngUp) go|to exit1|
|00001200| 3b 0d 09 09 69 66 20 28 | 66 6e 64 72 49 6e 66 6f |;...if (|fndrInfo|
|00001210| 2e 66 64 54 79 70 65 20 | 3d 3d 20 6b 53 61 76 65 |.fdType |== kSave|
|00001220| 64 55 73 65 72 47 72 6f | 75 70 4c 69 73 74 46 69 |dUserGro|upListFi|
|00001230| 6c 65 54 79 70 65 29 20 | 7b 0d 09 09 09 65 72 72 |leType) |{....err|
|00001240| 20 3d 20 4f 70 65 6e 55 | 73 65 72 47 72 6f 75 70 | = OpenU|serGroup|
|00001250| 4c 69 73 74 46 69 6c 65 | 28 26 66 53 70 65 63 29 |ListFile|(&fSpec)|
|00001260| 3b 0d 09 09 7d 20 65 6c | 73 65 20 69 66 20 28 66 |;...} el|se if (f|
|00001270| 6e 64 72 49 6e 66 6f 2e | 66 64 54 79 70 65 20 3d |ndrInfo.|fdType =|
|00001280| 3d 20 6b 53 61 76 65 64 | 4d 65 73 73 61 67 65 46 |= kSaved|MessageF|
|00001290| 69 6c 65 54 79 70 65 29 | 20 7b 0d 09 09 09 65 72 |ileType)| {....er|
|000012a0| 72 20 3d 20 4f 70 65 6e | 4d 65 73 73 61 67 65 46 |r = Open|MessageF|
|000012b0| 69 6c 65 28 26 66 53 70 | 65 63 2c 20 26 77 69 6e |ile(&fSp|ec, &win|
|000012c0| 64 29 3b 0d 09 09 7d 0d | 09 09 69 66 20 28 65 72 |d);...}.|..if (er|
|000012d0| 72 20 21 3d 20 6e 6f 45 | 72 72 29 20 67 6f 74 6f |r != noE|rr) goto|
|000012e0| 20 65 78 69 74 3b 0d 09 | 7d 0d 09 65 72 72 20 3d | exit;..|}..err =|
|000012f0| 20 41 45 44 69 73 70 6f | 73 65 44 65 73 63 28 26 | AEDispo|seDesc(&|
|00001300| 64 6f 63 4c 69 73 74 29 | 3b 0d 09 69 66 20 28 65 |docList)|;..if (e|
|00001310| 72 72 20 21 3d 20 6e 6f | 45 72 72 29 20 67 6f 74 |rr != no|Err) got|
|00001320| 6f 20 65 78 69 74 3b 0d | 09 72 65 74 75 72 6e 20 |o exit;.|.return |
|00001330| 6e 6f 45 72 72 3b 0d 0d | 65 78 69 74 3a 0d 0d 09 |noErr;..|exit:...|
|00001340| 69 66 20 28 64 6f 63 4c | 69 73 74 2e 64 61 74 61 |if (docL|ist.data|
|00001350| 48 61 6e 64 6c 65 20 21 | 3d 20 6e 69 6c 29 20 41 |Handle !|= nil) A|
|00001360| 45 44 69 73 70 6f 73 65 | 44 65 73 63 28 26 64 6f |EDispose|Desc(&do|
|00001370| 63 4c 69 73 74 29 3b 0d | 09 52 65 70 6f 72 74 53 |cList);.|.ReportS|
|00001380| 79 73 74 65 6d 45 72 72 | 6f 72 28 65 72 72 29 3b |ystemErr|or(err);|
|00001390| 0d 09 72 65 74 75 72 6e | 20 65 72 72 3b 0d 0d 65 |..return| err;..e|
|000013a0| 78 69 74 31 3a 0d 0d 09 | 69 66 20 28 64 6f 63 4c |xit1:...|if (docL|
|000013b0| 69 73 74 2e 64 61 74 61 | 48 61 6e 64 6c 65 20 21 |ist.data|Handle !|
|000013c0| 3d 20 6e 69 6c 29 20 41 | 45 44 69 73 70 6f 73 65 |= nil) A|EDispose|
|000013d0| 44 65 73 63 28 26 64 6f | 63 4c 69 73 74 29 3b 0d |Desc(&do|cList);.|
|000013e0| 09 65 72 72 20 3d 20 4d | 79 47 65 74 4e 65 77 44 |.err = M|yGetNewD|
|000013f0| 69 61 6c 6f 67 28 6b 4f | 70 65 6e 50 72 65 66 73 |ialog(kO|penPrefs|
|00001400| 46 69 6c 65 44 6c 67 2c | 20 6b 4f 70 65 6e 50 72 |FileDlg,| kOpenPr|
|00001410| 65 66 73 46 69 6c 65 44 | 6c 67 51 75 69 74 49 74 |efsFileD|lgQuitIt|
|00001420| 65 6d 2c 20 63 61 6e 63 | 65 6c 2c 20 26 64 6c 67 |em, canc|el, &dlg|
|00001430| 29 3b 0d 09 69 66 20 28 | 65 72 72 20 21 3d 20 6e |);..if (|err != n|
|00001440| 6f 45 72 72 29 20 72 65 | 74 75 72 6e 20 65 72 72 |oErr) re|turn err|
|00001450| 3b 0d 09 53 79 73 42 65 | 65 70 28 30 29 3b 0d 09 |;..SysBe|ep(0);..|
|00001460| 4d 79 4d 6f 64 61 6c 44 | 69 61 6c 6f 67 28 64 6c |MyModalD|ialog(dl|
|00001470| 67 2c 20 67 44 69 61 6c | 6f 67 46 69 6c 74 65 72 |g, gDial|ogFilter|
|00001480| 55 50 50 2c 20 26 69 74 | 65 6d 29 3b 0d 09 65 72 |UPP, &it|em);..er|
|00001490| 72 20 3d 20 44 6f 43 6c | 6f 73 65 28 64 6c 67 29 |r = DoCl|ose(dlg)|
|000014a0| 3b 0d 09 69 66 20 28 65 | 72 72 20 21 3d 20 6e 6f |;..if (e|rr != no|
|000014b0| 45 72 72 29 20 72 65 74 | 75 72 6e 20 65 72 72 3b |Err) ret|urn err;|
|000014c0| 0d 09 69 66 20 28 69 74 | 65 6d 20 3d 3d 20 6b 4f |..if (it|em == kO|
|000014d0| 70 65 6e 50 72 65 66 73 | 46 69 6c 65 44 6c 67 51 |penPrefs|FileDlgQ|
|000014e0| 75 69 74 49 74 65 6d 29 | 20 67 44 6f 6e 65 20 3d |uitItem)| gDone =|
|000014f0| 20 74 72 75 65 3b 0d 09 | 72 65 74 75 72 6e 20 75 | true;..|return u|
|00001500| 73 65 72 43 61 6e 63 65 | 6c 65 64 45 72 72 3b 0d |serCance|ledErr;.|
|00001510| 7d 0d 0d 0d 0d 2f 2a 2d | 2d 2d 2d 2d 2d 2d 2d 2d |}..../*-|--------|
|00001520| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001530| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001540| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001550| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001560| 2d 2d 2d 0d 09 48 61 6e | 64 6c 65 50 44 4f 43 20 |---..Han|dlePDOC |
|00001570| 0d 09 0d 09 48 61 6e 64 | 6c 65 20 74 68 65 20 70 |....Hand|le the p|
|00001580| 72 69 6e 74 20 64 6f 63 | 75 6d 65 6e 74 20 65 76 |rint doc|ument ev|
|00001590| 65 6e 74 2e 0d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ent..---|--------|
|000015a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000015b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000015c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000015d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000015e0| 2d 2a 2f 0d 0d 73 74 61 | 74 69 63 20 70 61 73 63 |-*/..sta|tic pasc|
|000015f0| 61 6c 20 4f 53 45 72 72 | 20 48 61 6e 64 6c 65 50 |al OSErr| HandleP|
|00001600| 44 4f 43 20 28 41 70 70 | 6c 65 45 76 65 6e 74 20 |DOC (App|leEvent |
|00001610| 2a 65 76 65 6e 74 2c 20 | 41 70 70 6c 65 45 76 65 |*event, |AppleEve|
|00001620| 6e 74 20 2a 72 65 70 6c | 79 2c 20 6c 6f 6e 67 20 |nt *repl|y, long |
|00001630| 72 65 66 63 6f 6e 29 0d | 7b 0d 09 4f 53 45 72 72 |refcon).|{..OSErr|
|00001640| 20 65 72 72 20 3d 20 6e | 6f 45 72 72 3b 0d 09 41 | err = n|oErr;..A|
|00001650| 45 44 65 73 63 4c 69 73 | 74 20 64 6f 63 4c 69 73 |EDescLis|t docLis|
|00001660| 74 20 3d 20 7b 30 2c 20 | 6e 69 6c 7d 3b 0d 09 6c |t = {0, |nil};..l|
|00001670| 6f 6e 67 20 6e 75 6d 49 | 74 65 6d 73 2c 20 69 3b |ong numI|tems, i;|
|00001680| 0d 09 41 45 4b 65 79 77 | 6f 72 64 20 6b 65 79 77 |..AEKeyw|ord keyw|
|00001690| 64 3b 0d 09 44 65 73 63 | 54 79 70 65 20 72 65 74 |d;..Desc|Type ret|
|000016a0| 75 72 6e 65 64 54 79 70 | 65 3b 0d 09 53 69 7a 65 |urnedTyp|e;..Size|
|000016b0| 20 61 63 74 75 61 6c 53 | 69 7a 65 3b 0d 09 46 53 | actualS|ize;..FS|
|000016c0| 53 70 65 63 20 66 53 70 | 65 63 3b 0d 09 46 49 6e |Spec fSp|ec;..FIn|
|000016d0| 66 6f 20 66 6e 64 72 49 | 6e 66 6f 3b 0d 09 57 69 |fo fndrI|nfo;..Wi|
|000016e0| 6e 64 6f 77 50 74 72 20 | 77 69 6e 64 3b 0d 09 54 |ndowPtr |wind;..T|
|000016f0| 57 69 6e 64 6f 77 20 2a | 2a 69 6e 66 6f 3b 0d 09 |Window *|*info;..|
|00001700| 54 45 48 61 6e 64 6c 65 | 20 74 68 65 54 45 3b 0d |TEHandle| theTE;.|
|00001710| 09 48 61 6e 64 6c 65 20 | 74 65 78 74 3b 0d 09 43 |.Handle |text;..C|
|00001720| 53 74 72 32 35 35 20 74 | 69 74 6c 65 3b 0d 09 6c |Str255 t|itle;..l|
|00001730| 6f 6e 67 20 73 74 61 72 | 74 2c 20 65 6e 64 3b 0d |ong star|t, end;.|
|00001740| 09 42 6f 6f 6c 65 61 6e | 20 66 69 72 73 74 46 69 |.Boolean| firstFi|
|00001750| 6c 65 20 3d 20 74 72 75 | 65 3b 0d 09 0d 09 69 66 |le = tru|e;....if|
|00001760| 20 28 21 67 53 74 61 72 | 74 75 70 4f 4b 29 20 72 | (!gStar|tupOK) r|
|00001770| 65 74 75 72 6e 20 75 73 | 65 72 43 61 6e 63 65 6c |eturn us|erCancel|
|00001780| 65 64 45 72 72 3b 0d 09 | 77 69 6e 64 20 3d 20 4d |edErr;..|wind = M|
|00001790| 79 46 72 6f 6e 74 57 69 | 6e 64 6f 77 28 29 3b 0d |yFrontWi|ndow();.|
|000017a0| 09 69 66 20 28 47 65 74 | 4d 79 57 69 6e 64 6f 77 |.if (Get|MyWindow|
|000017b0| 4b 69 6e 64 28 77 69 6e | 64 29 20 3d 3d 20 6b 53 |Kind(win|d) == kS|
|000017c0| 74 61 74 75 73 29 20 44 | 6f 43 6c 6f 73 65 28 77 |tatus) D|oClose(w|
|000017d0| 69 6e 64 29 3b 0d 09 65 | 72 72 20 3d 20 41 45 47 |ind);..e|rr = AEG|
|000017e0| 65 74 50 61 72 61 6d 44 | 65 73 63 28 65 76 65 6e |etParamD|esc(even|
|000017f0| 74 2c 20 6b 65 79 44 69 | 72 65 63 74 4f 62 6a 65 |t, keyDi|rectObje|
|00001800| 63 74 2c 20 74 79 70 65 | 41 45 4c 69 73 74 2c 20 |ct, type|AEList, |
|00001810| 26 64 6f 63 4c 69 73 74 | 29 3b 0d 09 69 66 20 28 |&docList|);..if (|
|00001820| 65 72 72 20 21 3d 20 6e | 6f 45 72 72 29 20 67 6f |err != n|oErr) go|
|00001830| 74 6f 20 65 78 69 74 3b | 0d 09 65 72 72 20 3d 20 |to exit;|..err = |
|00001840| 4d 79 47 6f 74 52 65 71 | 75 69 72 65 64 50 61 72 |MyGotReq|uiredPar|
|00001850| 61 6d 73 28 65 76 65 6e | 74 29 3b 0d 09 69 66 20 |ams(even|t);..if |
|00001860| 28 65 72 72 20 21 3d 20 | 6e 6f 45 72 72 29 20 67 |(err != |noErr) g|
|00001870| 6f 74 6f 20 65 78 69 74 | 3b 0d 09 65 72 72 20 3d |oto exit|;..err =|
|00001880| 20 41 45 43 6f 75 6e 74 | 49 74 65 6d 73 28 26 64 | AECount|Items(&d|
|00001890| 6f 63 4c 69 73 74 2c 20 | 26 6e 75 6d 49 74 65 6d |ocList, |&numItem|
|000018a0| 73 29 3b 0d 09 69 66 20 | 28 65 72 72 20 21 3d 20 |s);..if |(err != |
|000018b0| 6e 6f 45 72 72 29 20 67 | 6f 74 6f 20 65 78 69 74 |noErr) g|oto exit|
|000018c0| 3b 0d 09 66 6f 72 20 28 | 69 20 3d 20 31 3b 20 69 |;..for (|i = 1; i|
|000018d0| 20 3c 3d 20 6e 75 6d 49 | 74 65 6d 73 3b 20 69 2b | <= numI|tems; i+|
|000018e0| 2b 29 20 7b 0d 09 09 65 | 72 72 20 3d 20 41 45 47 |+) {...e|rr = AEG|
|000018f0| 65 74 4e 74 68 50 74 72 | 28 26 64 6f 63 4c 69 73 |etNthPtr|(&docLis|
|00001900| 74 2c 20 69 2c 20 74 79 | 70 65 46 53 53 2c 20 26 |t, i, ty|peFSS, &|
|00001910| 6b 65 79 77 64 2c 20 26 | 72 65 74 75 72 6e 65 64 |keywd, &|returned|
|00001920| 54 79 70 65 2c 0d 09 09 | 09 28 50 74 72 29 26 66 |Type,...|.(Ptr)&f|
|00001930| 53 70 65 63 2c 20 73 69 | 7a 65 6f 66 28 66 53 70 |Spec, si|zeof(fSp|
|00001940| 65 63 29 2c 20 26 61 63 | 74 75 61 6c 53 69 7a 65 |ec), &ac|tualSize|
|00001950| 29 3b 0d 09 09 69 66 20 | 28 65 72 72 20 21 3d 20 |);...if |(err != |
|00001960| 6e 6f 45 72 72 29 20 67 | 6f 74 6f 20 65 78 69 74 |noErr) g|oto exit|
|00001970| 3b 0d 09 09 65 72 72 20 | 3d 20 46 53 70 47 65 74 |;...err |= FSpGet|
|00001980| 46 49 6e 66 6f 28 26 66 | 53 70 65 63 2c 20 26 66 |FInfo(&f|Spec, &f|
|00001990| 6e 64 72 49 6e 66 6f 29 | 3b 0d 09 09 69 66 20 28 |ndrInfo)|;...if (|
|000019a0| 65 72 72 20 21 3d 20 6e | 6f 45 72 72 29 20 67 6f |err != n|oErr) go|
|000019b0| 74 6f 20 65 78 69 74 3b | 0d 09 09 69 66 20 28 66 |to exit;|...if (f|
|000019c0| 6e 64 72 49 6e 66 6f 2e | 66 64 54 79 70 65 20 3d |ndrInfo.|fdType =|
|000019d0| 3d 20 6b 53 61 76 65 64 | 4d 65 73 73 61 67 65 46 |= kSaved|MessageF|
|000019e0| 69 6c 65 54 79 70 65 29 | 20 7b 0d 09 09 09 65 72 |ileType)| {....er|
|000019f0| 72 20 3d 20 4f 70 65 6e | 4d 65 73 73 61 67 65 46 |r = Open|MessageF|
|00001a00| 69 6c 65 28 26 66 53 70 | 65 63 2c 20 26 77 69 6e |ile(&fSp|ec, &win|
|00001a10| 64 29 3b 0d 09 09 09 69 | 66 20 28 65 72 72 20 21 |d);....i|f (err !|
|00001a20| 3d 20 6e 6f 45 72 72 29 | 20 67 6f 74 6f 20 65 78 |= noErr)| goto ex|
|00001a30| 69 74 3b 0d 09 09 09 48 | 61 6e 64 6c 65 55 70 64 |it;....H|andleUpd|
|00001a40| 61 74 65 28 77 69 6e 64 | 29 3b 0d 09 09 09 69 66 |ate(wind|);....if|
|00001a50| 20 28 66 69 72 73 74 46 | 69 6c 65 29 20 7b 0d 09 | (firstF|ile) {..|
|00001a60| 09 09 09 65 72 72 20 3d | 20 53 74 61 72 74 50 72 |...err =| StartPr|
|00001a70| 69 6e 74 28 29 3b 0d 09 | 09 09 09 69 66 20 28 65 |int();..|...if (e|
|00001a80| 72 72 20 21 3d 20 6e 6f | 45 72 72 29 20 67 6f 74 |rr != no|Err) got|
|00001a90| 6f 20 65 78 69 74 3b 0d | 09 09 09 09 65 72 72 20 |o exit;.|....err |
|00001aa0| 3d 20 44 69 73 70 6c 61 | 79 53 74 61 74 75 73 4d |= Displa|yStatusM|
|00001ab0| 65 73 73 61 67 65 4e 75 | 6d 62 65 72 28 6b 53 74 |essageNu|mber(kSt|
|00001ac0| 72 50 72 69 6e 74 69 6e | 67 29 3b 0d 09 09 09 09 |rPrintin|g);.....|
|00001ad0| 69 66 20 28 65 72 72 20 | 21 3d 20 6e 6f 45 72 72 |if (err |!= noErr|
|00001ae0| 29 20 67 6f 74 6f 20 65 | 78 69 74 3b 0d 09 09 09 |) goto e|xit;....|
|00001af0| 09 66 69 72 73 74 46 69 | 6c 65 20 3d 20 66 61 6c |.firstFi|le = fal|
|00001b00| 73 65 3b 0d 09 09 09 7d | 0d 09 09 09 47 65 74 57 |se;....}|....GetW|
|00001b10| 54 69 74 6c 65 28 77 69 | 6e 64 2c 20 28 53 74 72 |Title(wi|nd, (Str|
|00001b20| 69 6e 67 50 74 72 29 74 | 69 74 6c 65 29 3b 0d 09 |ingPtr)t|itle);..|
|00001b30| 09 09 70 32 63 73 74 72 | 28 28 53 74 72 69 6e 67 |..p2cstr|((String|
|00001b40| 50 74 72 29 74 69 74 6c | 65 29 3b 0d 09 09 09 69 |Ptr)titl|e);....i|
|00001b50| 6e 66 6f 20 3d 20 28 54 | 57 69 6e 64 6f 77 2a 2a |nfo = (T|Window**|
|00001b60| 29 47 65 74 57 52 65 66 | 43 6f 6e 28 77 69 6e 64 |)GetWRef|Con(wind|
|00001b70| 29 3b 0d 09 09 09 74 68 | 65 54 45 20 3d 20 28 2a |);....th|eTE = (*|
|00001b80| 2a 69 6e 66 6f 29 2e 74 | 68 65 54 45 3b 0d 09 09 |*info).t|heTE;...|
|00001b90| 09 74 65 78 74 20 3d 20 | 28 2a 2a 74 68 65 54 45 |.text = |(**theTE|
|00001ba0| 29 2e 68 54 65 78 74 3b | 0d 09 09 09 73 74 61 72 |).hText;|....star|
|00001bb0| 74 20 3d 20 30 3b 0d 09 | 09 09 65 6e 64 20 3d 20 |t = 0;..|..end = |
|00001bc0| 4d 79 47 65 74 48 61 6e | 64 6c 65 53 69 7a 65 28 |MyGetHan|dleSize(|
|00001bd0| 74 65 78 74 29 3b 0d 09 | 09 09 65 72 72 20 3d 20 |text);..|..err = |
|00001be0| 50 72 69 6e 74 54 65 78 | 74 28 74 65 78 74 2c 20 |PrintTex|t(text, |
|00001bf0| 73 74 61 72 74 2c 20 65 | 6e 64 2c 20 74 69 74 6c |start, e|nd, titl|
|00001c00| 65 29 3b 0d 09 09 09 69 | 66 20 28 65 72 72 20 21 |e);....i|f (err !|
|00001c10| 3d 20 6e 6f 45 72 72 29 | 20 67 6f 74 6f 20 65 78 |= noErr)| goto ex|
|00001c20| 69 74 3b 0d 09 09 09 65 | 72 72 20 3d 20 44 6f 43 |it;....e|rr = DoC|
|00001c30| 6c 6f 73 65 28 77 69 6e | 64 29 3b 0d 09 09 09 69 |lose(win|d);....i|
|00001c40| 66 20 28 65 72 72 20 21 | 3d 20 6e 6f 45 72 72 29 |f (err !|= noErr)|
|00001c50| 20 67 6f 74 6f 20 65 78 | 69 74 3b 0d 09 09 7d 0d | goto ex|it;...}.|
|00001c60| 09 7d 0d 09 65 72 72 20 | 3d 20 41 45 44 69 73 70 |.}..err |= AEDisp|
|00001c70| 6f 73 65 44 65 73 63 28 | 26 64 6f 63 4c 69 73 74 |oseDesc(|&docList|
|00001c80| 29 3b 0d 09 69 66 20 28 | 65 72 72 20 21 3d 20 6e |);..if (|err != n|
|00001c90| 6f 45 72 72 29 20 67 6f | 74 6f 20 65 78 69 74 3b |oErr) go|to exit;|
|00001ca0| 0d 09 72 65 74 75 72 6e | 20 6e 6f 45 72 72 3b 0d |..return| noErr;.|
|00001cb0| 0d 65 78 69 74 3a 0d 0d | 09 69 66 20 28 64 6f 63 |.exit:..|.if (doc|
|00001cc0| 4c 69 73 74 2e 64 61 74 | 61 48 61 6e 64 6c 65 20 |List.dat|aHandle |
|00001cd0| 21 3d 20 6e 69 6c 29 20 | 41 45 44 69 73 70 6f 73 |!= nil) |AEDispos|
|00001ce0| 65 44 65 73 63 28 26 64 | 6f 63 4c 69 73 74 29 3b |eDesc(&d|ocList);|
|00001cf0| 0d 09 52 65 70 6f 72 74 | 53 79 73 74 65 6d 45 72 |..Report|SystemEr|
|00001d00| 72 6f 72 28 65 72 72 29 | 3b 0d 09 72 65 74 75 72 |ror(err)|;..retur|
|00001d10| 6e 20 65 72 72 3b 0d 7d | 0d 0d 0d 0d 2f 2a 2d 2d |n err;.}|..../*--|
|00001d20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001d30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001d40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001d50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001d60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 09 48 61 6e 64 |--------|--..Hand|
|00001d70| 6c 65 51 55 49 54 20 0d | 09 0d 09 48 61 6e 64 6c |leQUIT .|...Handl|
|00001d80| 65 20 74 68 65 20 71 75 | 69 74 20 61 70 70 6c 69 |e the qu|it appli|
|00001d90| 63 61 74 69 6f 6e 20 65 | 76 65 6e 74 2e 0d 2d 2d |cation e|vent..--|
|00001da0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001db0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001dc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001dd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001de0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2a 2f 0d 0d 73 74 |--------|--*/..st|
|00001df0| 61 74 69 63 20 70 61 73 | 63 61 6c 20 4f 53 45 72 |atic pas|cal OSEr|
|00001e00| 72 20 48 61 6e 64 6c 65 | 51 55 49 54 20 28 41 70 |r Handle|QUIT (Ap|
|00001e10| 70 6c 65 45 76 65 6e 74 | 20 2a 65 76 65 6e 74 2c |pleEvent| *event,|
|00001e20| 20 41 70 70 6c 65 45 76 | 65 6e 74 20 2a 72 65 70 | AppleEv|ent *rep|
|00001e30| 6c 79 2c 20 6c 6f 6e 67 | 20 72 65 66 63 6f 6e 29 |ly, long| refcon)|
|00001e40| 0d 7b 0d 09 4f 53 45 72 | 72 20 65 72 72 20 3d 20 |.{..OSEr|r err = |
|00001e50| 6e 6f 45 72 72 3b 0d 0d | 09 65 72 72 20 3d 20 4d |noErr;..|.err = M|
|00001e60| 79 47 6f 74 52 65 71 75 | 69 72 65 64 50 61 72 61 |yGotRequ|iredPara|
|00001e70| 6d 73 28 65 76 65 6e 74 | 29 3b 0d 09 69 66 20 28 |ms(event|);..if (|
|00001e80| 65 72 72 20 21 3d 20 6e | 6f 45 72 72 29 20 72 65 |err != n|oErr) re|
|00001e90| 74 75 72 6e 20 65 72 72 | 3b 0d 09 67 44 6f 6e 65 |turn err|;..gDone|
|00001ea0| 20 3d 20 74 72 75 65 3b | 0d 09 72 65 74 75 72 6e | = true;|..return|
|00001eb0| 20 6e 6f 45 72 72 3b 0d | 7d 0d 0d 0d 0d 2f 2a 2d | noErr;.|}..../*-|
|00001ec0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001ed0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001ee0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001ef0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001f00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 09 48 61 6e |--------|---..Han|
|00001f10| 64 6c 65 47 55 52 4c 20 | 0d 09 0d 09 48 61 6e 64 |dleGURL |....Hand|
|00001f20| 6c 65 20 74 68 65 20 67 | 65 74 20 75 72 6c 20 65 |le the g|et url e|
|00001f30| 76 65 6e 74 2e 0d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |vent..--|--------|
|00001f40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001f50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001f60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001f70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001f80| 2d 2d 2a 2f 0d 0d 73 74 | 61 74 69 63 20 70 61 73 |--*/..st|atic pas|
|00001f90| 63 61 6c 20 4f 53 45 72 | 72 20 48 61 6e 64 6c 65 |cal OSEr|r Handle|
|00001fa0| 47 55 52 4c 20 28 41 70 | 70 6c 65 45 76 65 6e 74 |GURL (Ap|pleEvent|
|00001fb0| 20 2a 65 76 65 6e 74 2c | 20 41 70 70 6c 65 45 76 | *event,| AppleEv|
|00001fc0| 65 6e 74 20 2a 72 65 70 | 6c 79 2c 20 6c 6f 6e 67 |ent *rep|ly, long|
|00001fd0| 20 72 65 66 63 6f 6e 29 | 0d 7b 0d 09 43 53 74 72 | refcon)|.{..CStr|
|00001fe0| 32 35 35 20 75 72 6c 3b | 0d 09 44 65 73 63 54 79 |255 url;|..DescTy|
|00001ff0| 70 65 20 74 79 70 65 43 | 6f 64 65 3b 0d 09 53 69 |pe typeC|ode;..Si|
|00002000| 7a 65 20 61 63 74 75 61 | 6c 53 69 7a 65 3b 0d 09 |ze actua|lSize;..|
|00002010| 4f 53 45 72 72 20 65 72 | 72 20 3d 20 6e 6f 45 72 |OSErr er|r = noEr|
|00002020| 72 3b 0d 09 4f 53 45 72 | 72 20 72 65 73 75 6c 74 |r;..OSEr|r result|
|00002030| 20 3d 20 6e 6f 45 72 72 | 3b 0d 0d 09 69 66 20 28 | = noErr|;...if (|
|00002040| 21 67 53 74 61 72 74 75 | 70 4f 4b 29 20 72 65 74 |!gStartu|pOK) ret|
|00002050| 75 72 6e 20 75 73 65 72 | 43 61 6e 63 65 6c 65 64 |urn user|Canceled|
|00002060| 45 72 72 3b 0d 09 65 72 | 72 20 3d 20 41 45 47 65 |Err;..er|r = AEGe|
|00002070| 74 50 61 72 61 6d 50 74 | 72 28 65 76 65 6e 74 2c |tParamPt|r(event,|
|00002080| 20 6b 65 79 44 69 72 65 | 63 74 4f 62 6a 65 63 74 | keyDire|ctObject|
|00002090| 2c 20 74 79 70 65 43 68 | 61 72 2c 20 26 74 79 70 |, typeCh|ar, &typ|
|000020a0| 65 43 6f 64 65 2c 20 75 | 72 6c 2c 20 0d 09 09 32 |eCode, u|rl, ...2|
|000020b0| 35 35 2c 20 26 61 63 74 | 75 61 6c 53 69 7a 65 29 |55, &act|ualSize)|
|000020c0| 3b 0d 09 69 66 20 28 65 | 72 72 20 21 3d 20 6e 6f |;..if (e|rr != no|
|000020d0| 45 72 72 29 20 72 65 74 | 75 72 6e 20 65 72 72 3b |Err) ret|urn err;|
|000020e0| 0d 09 65 72 72 20 3d 20 | 4d 79 47 6f 74 52 65 71 |..err = |MyGotReq|
|000020f0| 75 69 72 65 64 50 61 72 | 61 6d 73 28 65 76 65 6e |uiredPar|ams(even|
|00002100| 74 29 3b 0d 09 69 66 20 | 28 65 72 72 20 21 3d 20 |t);..if |(err != |
|00002110| 6e 6f 45 72 72 29 20 72 | 65 74 75 72 6e 20 65 72 |noErr) r|eturn er|
|00002120| 72 3b 0d 09 75 72 6c 5b | 61 63 74 75 61 6c 53 69 |r;..url[|actualSi|
|00002130| 7a 65 5d 20 3d 20 30 3b | 0d 09 72 65 73 75 6c 74 |ze] = 0;|..result|
|00002140| 20 3d 20 4f 70 65 6e 55 | 52 4c 53 74 72 69 6e 67 | = OpenU|RLString|
|00002150| 28 75 72 6c 29 3b 0d 09 | 69 66 20 28 72 65 70 6c |(url);..|if (repl|
|00002160| 79 2d 3e 64 61 74 61 48 | 61 6e 64 6c 65 20 21 3d |y->dataH|andle !=|
|00002170| 20 6e 69 6c 29 20 7b 0d | 09 09 65 72 72 20 3d 20 | nil) {.|..err = |
|00002180| 41 45 50 75 74 50 61 72 | 61 6d 50 74 72 28 72 65 |AEPutPar|amPtr(re|
|00002190| 70 6c 79 2c 20 6b 65 79 | 44 69 72 65 63 74 4f 62 |ply, key|DirectOb|
|000021a0| 6a 65 63 74 2c 20 74 79 | 70 65 53 68 6f 72 74 49 |ject, ty|peShortI|
|000021b0| 6e 74 65 67 65 72 2c 0d | 09 09 09 26 72 65 73 75 |nteger,.|...&resu|
|000021c0| 6c 74 2c 20 73 69 7a 65 | 6f 66 28 72 65 73 75 6c |lt, size|of(resul|
|000021d0| 74 29 29 3b 0d 09 09 69 | 66 20 28 65 72 72 20 21 |t));...i|f (err !|
|000021e0| 3d 20 6e 6f 45 72 72 29 | 20 72 65 74 75 72 6e 20 |= noErr)| return |
|000021f0| 65 72 72 3b 0d 09 7d 20 | 65 6c 73 65 20 7b 0d 09 |err;..} |else {..|
|00002200| 09 73 77 69 74 63 68 20 | 28 72 65 73 75 6c 74 29 |.switch |(result)|
|00002210| 20 7b 0d 09 09 09 63 61 | 73 65 20 70 61 72 61 6d | {....ca|se param|
|00002220| 45 72 72 3a 0d 09 09 09 | 09 45 72 72 6f 72 4d 65 |Err:....|.ErrorMe|
|00002230| 73 73 61 67 65 4e 75 6d | 62 65 72 28 6b 53 74 72 |ssageNum|ber(kStr|
|00002240| 55 52 4c 53 79 6e 74 61 | 78 45 72 72 6f 72 29 3b |URLSynta|xError);|
|00002250| 0d 09 09 09 09 62 72 65 | 61 6b 3b 0d 09 09 09 63 |.....bre|ak;....c|
|00002260| 61 73 65 20 66 6e 66 45 | 72 72 3a 0d 09 09 09 09 |ase fnfE|rr:.....|
|00002270| 4e 6f 74 65 4d 65 73 73 | 61 67 65 4e 75 6d 62 65 |NoteMess|ageNumbe|
|00002280| 72 28 6b 53 74 72 41 72 | 74 69 63 6c 65 4f 72 47 |r(kStrAr|ticleOrG|
|00002290| 72 6f 75 70 4e 6f 74 46 | 6f 75 6e 64 29 3b 0d 09 |roupNotF|ound);..|
|000022a0| 09 09 09 62 72 65 61 6b | 3b 0d 09 09 09 64 65 66 |...break|;....def|
|000022b0| 61 75 6c 74 3a 0d 09 09 | 09 09 52 65 70 6f 72 74 |ault:...|..Report|
|000022c0| 53 79 73 74 65 6d 45 72 | 72 6f 72 28 72 65 73 75 |SystemEr|ror(resu|
|000022d0| 6c 74 29 3b 0d 09 09 09 | 09 62 72 65 61 6b 3b 0d |lt);....|.break;.|
|000022e0| 09 09 7d 0d 09 7d 0d 09 | 72 65 74 75 72 6e 20 6e |..}..}..|return n|
|000022f0| 6f 45 72 72 3b 0d 7d 0d | 0d 0d 0d 2f 2a 2d 2d 2d |oErr;.}.|.../*---|
|00002300| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002310| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002320| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002330| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002340| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 09 48 61 6e 64 6c |--------|-..Handl|
|00002350| 65 46 69 72 73 74 45 76 | 65 6e 74 20 0d 09 0d 09 |eFirstEv|ent ....|
|00002360| 48 61 6e 64 6c 65 20 74 | 68 65 20 66 69 72 73 74 |Handle t|he first|
|00002370| 20 65 76 65 6e 74 2e 0d | 2d 2d 2d 2d 2d 2d 2d 2d | event..|--------|
|00002380| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002390| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023c0| 2d 2d 2d 2d 2a 2f 0d 0d | 73 74 61 74 69 63 20 70 |----*/..|static p|
|000023d0| 61 73 63 61 6c 20 4f 53 | 45 72 72 20 48 61 6e 64 |ascal OS|Err Hand|
|000023e0| 6c 65 46 69 72 73 74 45 | 76 65 6e 74 20 28 41 70 |leFirstE|vent (Ap|
|000023f0| 70 6c 65 45 76 65 6e 74 | 20 2a 65 76 65 6e 74 2c |pleEvent| *event,|
|00002400| 20 41 70 70 6c 65 45 76 | 65 6e 74 20 2a 72 65 70 | AppleEv|ent *rep|
|00002410| 6c 79 2c 20 6c 6f 6e 67 | 20 72 65 66 63 6f 6e 29 |ly, long| refcon)|
|00002420| 0d 7b 0d 09 2a 67 46 69 | 72 73 74 45 76 65 6e 74 |.{..*gFi|rstEvent|
|00002430| 20 3d 20 2a 65 76 65 6e | 74 3b 0d 09 2a 67 46 69 | = *even|t;..*gFi|
|00002440| 72 73 74 52 65 70 6c 79 | 20 3d 20 2a 72 65 70 6c |rstReply| = *repl|
|00002450| 79 3b 0d 09 72 65 74 75 | 72 6e 20 41 45 53 75 73 |y;..retu|rn AESus|
|00002460| 70 65 6e 64 54 68 65 43 | 75 72 72 65 6e 74 45 76 |pendTheC|urrentEv|
|00002470| 65 6e 74 28 65 76 65 6e | 74 29 3b 0d 7d 0d 0d 0d |ent(even|t);.}...|
|00002480| 0d 2f 2a 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |./*-----|--------|
|00002490| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000024a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000024b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000024c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 0d |--------|-------.|
|000024d0| 09 49 6e 69 74 69 61 6c | 69 7a 65 41 70 70 6c 65 |.Initial|izeApple|
|000024e0| 45 76 65 6e 74 73 20 0d | 09 0d 09 49 6e 69 74 69 |Events .|...Initi|
|000024f0| 61 6c 69 7a 65 20 41 70 | 70 6c 65 20 65 76 65 6e |alize Ap|ple even|
|00002500| 74 73 2e 20 47 65 74 20 | 74 68 65 20 66 69 72 73 |ts. Get |the firs|
|00002510| 74 20 65 76 65 6e 74 20 | 61 6e 64 20 73 75 73 70 |t event |and susp|
|00002520| 65 6e 64 20 69 74 2e 20 | 54 68 65 20 63 61 6c 6c |end it. |The call|
|00002530| 65 72 20 0d 09 6d 75 73 | 74 20 72 65 73 75 6d 65 |er ..mus|t resume|
|00002540| 20 74 68 69 73 20 66 69 | 72 73 74 20 65 76 65 6e | this fi|rst even|
|00002550| 74 20 74 6f 20 61 63 74 | 75 61 6c 6c 79 20 70 72 |t to act|ually pr|
|00002560| 6f 63 65 73 73 20 69 74 | 20 77 68 65 6e 20 69 6e |ocess it| when in|
|00002570| 69 74 69 61 6c 69 7a 61 | 74 69 6f 6e 0d 09 69 73 |itializa|tion..is|
|00002580| 20 63 6f 6d 70 6c 65 74 | 65 2e 0d 09 0d 09 45 78 | complet|e.....Ex|
|00002590| 69 74 3a 09 66 75 6e 74 | 69 6f 6e 20 72 65 73 75 |it:.funt|ion resu|
|000025a0| 6c 74 20 3d 20 65 72 72 | 6f 72 20 63 6f 64 65 2e |lt = err|or code.|
|000025b0| 0d 09 09 09 66 69 72 73 | 74 45 76 65 6e 74 20 3d |....firs|tEvent =|
|000025c0| 20 65 76 65 6e 74 20 72 | 65 63 6f 72 64 20 66 6f | event r|ecord fo|
|000025d0| 72 20 66 69 72 73 74 20 | 65 76 65 6e 74 2e 0d 09 |r first |event...|
|000025e0| 09 09 66 69 72 73 74 52 | 65 70 6c 79 20 3d 20 72 |..firstR|eply = r|
|000025f0| 65 70 6c 79 20 72 65 63 | 6f 72 64 20 66 6f 72 20 |eply rec|ord for |
|00002600| 66 69 72 73 74 20 65 76 | 65 6e 74 2e 0d 2d 2d 2d |first ev|ent..---|
|00002610| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002620| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002630| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002640| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002650| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2a 2f 0d 0d 4f 53 45 |--------|-*/..OSE|
|00002660| 72 72 20 49 6e 69 74 69 | 61 6c 69 7a 65 41 70 70 |rr Initi|alizeApp|
|00002670| 6c 65 45 76 65 6e 74 73 | 20 28 41 70 70 6c 65 45 |leEvents| (AppleE|
|00002680| 76 65 6e 74 20 2a 66 69 | 72 73 74 45 76 65 6e 74 |vent *fi|rstEvent|
|00002690| 2c 20 41 70 70 6c 65 45 | 76 65 6e 74 20 2a 66 69 |, AppleE|vent *fi|
|000026a0| 72 73 74 52 65 70 6c 79 | 29 0d 7b 0d 09 4f 53 45 |rstReply|).{..OSE|
|000026b0| 72 72 20 65 72 72 20 3d | 20 6e 6f 45 72 72 3b 0d |rr err =| noErr;.|
|000026c0| 09 42 6f 6f 6c 65 61 6e | 20 67 6f 74 45 76 74 3b |.Boolean| gotEvt;|
|000026d0| 0d 09 45 76 65 6e 74 52 | 65 63 6f 72 64 20 65 76 |..EventR|ecord ev|
|000026e0| 3b 0d 09 0d 09 67 46 69 | 72 73 74 45 76 65 6e 74 |;....gFi|rstEvent|
|000026f0| 20 3d 20 66 69 72 73 74 | 45 76 65 6e 74 3b 0d 09 | = first|Event;..|
|00002700| 67 46 69 72 73 74 52 65 | 70 6c 79 20 3d 20 66 69 |gFirstRe|ply = fi|
|00002710| 72 73 74 52 65 70 6c 79 | 3b 0d 0d 09 67 48 61 6e |rstReply|;...gHan|
|00002720| 64 6c 65 4f 41 50 50 55 | 50 50 20 3d 20 4e 65 77 |dleOAPPU|PP = New|
|00002730| 41 45 45 76 65 6e 74 48 | 61 6e 64 6c 65 72 50 72 |AEEventH|andlerPr|
|00002740| 6f 63 28 48 61 6e 64 6c | 65 4f 41 50 50 29 3b 0d |oc(Handl|eOAPP);.|
|00002750| 09 67 48 61 6e 64 6c 65 | 4f 44 4f 43 55 50 50 20 |.gHandle|ODOCUPP |
|00002760| 3d 20 4e 65 77 41 45 45 | 76 65 6e 74 48 61 6e 64 |= NewAEE|ventHand|
|00002770| 6c 65 72 50 72 6f 63 28 | 48 61 6e 64 6c 65 4f 44 |lerProc(|HandleOD|
|00002780| 4f 43 29 3b 0d 09 67 48 | 61 6e 64 6c 65 50 44 4f |OC);..gH|andlePDO|
|00002790| 43 55 50 50 20 3d 20 4e | 65 77 41 45 45 76 65 6e |CUPP = N|ewAEEven|
|000027a0| 74 48 61 6e 64 6c 65 72 | 50 72 6f 63 28 48 61 6e |tHandler|Proc(Han|
|000027b0| 64 6c 65 50 44 4f 43 29 | 3b 0d 09 67 48 61 6e 64 |dlePDOC)|;..gHand|
|000027c0| 6c 65 51 55 49 54 55 50 | 50 20 3d 20 4e 65 77 41 |leQUITUP|P = NewA|
|000027d0| 45 45 76 65 6e 74 48 61 | 6e 64 6c 65 72 50 72 6f |EEventHa|ndlerPro|
|000027e0| 63 28 48 61 6e 64 6c 65 | 51 55 49 54 29 3b 0d 09 |c(Handle|QUIT);..|
|000027f0| 67 48 61 6e 64 6c 65 47 | 55 52 4c 55 50 50 20 3d |gHandleG|URLUPP =|
|00002800| 20 4e 65 77 41 45 45 76 | 65 6e 74 48 61 6e 64 6c | NewAEEv|entHandl|
|00002810| 65 72 50 72 6f 63 28 48 | 61 6e 64 6c 65 47 55 52 |erProc(H|andleGUR|
|00002820| 4c 29 3b 0d 09 67 48 61 | 6e 64 6c 65 46 69 72 73 |L);..gHa|ndleFirs|
|00002830| 74 45 76 65 6e 74 55 50 | 50 20 3d 20 4e 65 77 41 |tEventUP|P = NewA|
|00002840| 45 45 76 65 6e 74 48 61 | 6e 64 6c 65 72 50 72 6f |EEventHa|ndlerPro|
|00002850| 63 28 48 61 6e 64 6c 65 | 46 69 72 73 74 45 76 65 |c(Handle|FirstEve|
|00002860| 6e 74 29 3b 0d 0d 09 65 | 72 72 20 3d 20 41 45 49 |nt);...e|rr = AEI|
|00002870| 6e 73 74 61 6c 6c 45 76 | 65 6e 74 48 61 6e 64 6c |nstallEv|entHandl|
|00002880| 65 72 28 6b 43 6f 72 65 | 45 76 65 6e 74 43 6c 61 |er(kCore|EventCla|
|00002890| 73 73 2c 20 6b 41 45 4f | 70 65 6e 41 70 70 6c 69 |ss, kAEO|penAppli|
|000028a0| 63 61 74 69 6f 6e 2c 0d | 09 09 67 48 61 6e 64 6c |cation,.|..gHandl|
|000028b0| 65 46 69 72 73 74 45 76 | 65 6e 74 55 50 50 2c 20 |eFirstEv|entUPP, |
|000028c0| 30 2c 20 66 61 6c 73 65 | 29 3b 0d 09 69 66 20 28 |0, false|);..if (|
|000028d0| 65 72 72 20 21 3d 20 6e | 6f 45 72 72 29 20 72 65 |err != n|oErr) re|
|000028e0| 74 75 72 6e 20 65 72 72 | 3b 0d 09 65 72 72 20 3d |turn err|;..err =|
|000028f0| 20 41 45 49 6e 73 74 61 | 6c 6c 45 76 65 6e 74 48 | AEInsta|llEventH|
|00002900| 61 6e 64 6c 65 72 28 6b | 43 6f 72 65 45 76 65 6e |andler(k|CoreEven|
|00002910| 74 43 6c 61 73 73 2c 20 | 6b 41 45 4f 70 65 6e 44 |tClass, |kAEOpenD|
|00002920| 6f 63 75 6d 65 6e 74 73 | 2c 0d 09 09 67 48 61 6e |ocuments|,...gHan|
|00002930| 64 6c 65 46 69 72 73 74 | 45 76 65 6e 74 55 50 50 |dleFirst|EventUPP|
|00002940| 2c 20 30 2c 20 66 61 6c | 73 65 29 3b 0d 09 69 66 |, 0, fal|se);..if|
|00002950| 20 28 65 72 72 20 21 3d | 20 6e 6f 45 72 72 29 20 | (err !=| noErr) |
|00002960| 72 65 74 75 72 6e 20 65 | 72 72 3b 0d 09 65 72 72 |return e|rr;..err|
|00002970| 20 3d 20 41 45 49 6e 73 | 74 61 6c 6c 45 76 65 6e | = AEIns|tallEven|
|00002980| 74 48 61 6e 64 6c 65 72 | 28 6b 43 6f 72 65 45 76 |tHandler|(kCoreEv|
|00002990| 65 6e 74 43 6c 61 73 73 | 2c 20 6b 41 45 50 72 69 |entClass|, kAEPri|
|000029a0| 6e 74 44 6f 63 75 6d 65 | 6e 74 73 2c 0d 09 09 67 |ntDocume|nts,...g|
|000029b0| 48 61 6e 64 6c 65 46 69 | 72 73 74 45 76 65 6e 74 |HandleFi|rstEvent|
|000029c0| 55 50 50 2c 20 30 2c 20 | 66 61 6c 73 65 29 3b 0d |UPP, 0, |false);.|
|000029d0| 09 69 66 20 28 65 72 72 | 20 21 3d 20 6e 6f 45 72 |.if (err| != noEr|
|000029e0| 72 29 20 72 65 74 75 72 | 6e 20 65 72 72 3b 0d 09 |r) retur|n err;..|
|000029f0| 65 72 72 20 3d 20 41 45 | 49 6e 73 74 61 6c 6c 45 |err = AE|InstallE|
|00002a00| 76 65 6e 74 48 61 6e 64 | 6c 65 72 28 6b 43 6f 72 |ventHand|ler(kCor|
|00002a10| 65 45 76 65 6e 74 43 6c | 61 73 73 2c 20 6b 41 45 |eEventCl|ass, kAE|
|00002a20| 51 75 69 74 41 70 70 6c | 69 63 61 74 69 6f 6e 2c |QuitAppl|ication,|
|00002a30| 0d 09 09 67 48 61 6e 64 | 6c 65 46 69 72 73 74 45 |...gHand|leFirstE|
|00002a40| 76 65 6e 74 55 50 50 2c | 20 30 2c 20 66 61 6c 73 |ventUPP,| 0, fals|
|00002a50| 65 29 3b 0d 09 69 66 20 | 28 65 72 72 20 21 3d 20 |e);..if |(err != |
|00002a60| 6e 6f 45 72 72 29 20 72 | 65 74 75 72 6e 20 65 72 |noErr) r|eturn er|
|00002a70| 72 3b 0d 09 65 72 72 20 | 3d 20 41 45 49 6e 73 74 |r;..err |= AEInst|
|00002a80| 61 6c 6c 45 76 65 6e 74 | 48 61 6e 64 6c 65 72 28 |allEvent|Handler(|
|00002a90| 6b 47 65 74 55 52 4c 45 | 76 65 6e 74 43 6c 61 73 |kGetURLE|ventClas|
|00002aa0| 73 2c 20 6b 47 65 74 55 | 52 4c 45 76 65 6e 74 49 |s, kGetU|RLEventI|
|00002ab0| 44 2c 0d 09 09 67 48 61 | 6e 64 6c 65 46 69 72 73 |D,...gHa|ndleFirs|
|00002ac0| 74 45 76 65 6e 74 55 50 | 50 2c 20 30 2c 20 66 61 |tEventUP|P, 0, fa|
|00002ad0| 6c 73 65 29 3b 0d 09 69 | 66 20 28 65 72 72 20 21 |lse);..i|f (err !|
|00002ae0| 3d 20 6e 6f 45 72 72 29 | 20 72 65 74 75 72 6e 20 |= noErr)| return |
|00002af0| 65 72 72 3b 0d 0d 09 77 | 68 69 6c 65 20 28 74 72 |err;...w|hile (tr|
|00002b00| 75 65 29 20 7b 0d 09 09 | 67 6f 74 45 76 74 20 3d |ue) {...|gotEvt =|
|00002b10| 20 57 61 69 74 4e 65 78 | 74 45 76 65 6e 74 28 68 | WaitNex|tEvent(h|
|00002b20| 69 67 68 4c 65 76 65 6c | 45 76 65 6e 74 4d 61 73 |ighLevel|EventMas|
|00002b30| 6b 20 7c 20 61 63 74 69 | 76 4d 61 73 6b 20 7c 20 |k | acti|vMask | |
|00002b40| 75 70 64 61 74 65 4d 61 | 73 6b 20 7c 20 6f 73 4d |updateMa|sk | osM|
|00002b50| 61 73 6b 2c 20 0d 09 09 | 09 26 65 76 2c 20 47 65 |ask, ...|.&ev, Ge|
|00002b60| 74 43 61 72 65 74 54 69 | 6d 65 28 29 2c 20 6e 69 |tCaretTi|me(), ni|
|00002b70| 6c 29 3b 0d 09 09 69 66 | 20 28 67 6f 74 45 76 74 |l);...if| (gotEvt|
|00002b80| 20 26 26 20 65 76 2e 77 | 68 61 74 20 3d 3d 20 6b | && ev.w|hat == k|
|00002b90| 48 69 67 68 4c 65 76 65 | 6c 45 76 65 6e 74 29 20 |HighLeve|lEvent) |
|00002ba0| 7b 0d 09 09 09 65 72 72 | 20 3d 20 41 45 50 72 6f |{....err| = AEPro|
|00002bb0| 63 65 73 73 41 70 70 6c | 65 45 76 65 6e 74 28 26 |cessAppl|eEvent(&|
|00002bc0| 65 76 29 3b 0d 09 09 09 | 69 66 20 28 65 72 72 20 |ev);....|if (err |
|00002bd0| 21 3d 20 6e 6f 45 72 72 | 29 20 72 65 74 75 72 6e |!= noErr|) return|
|00002be0| 20 65 72 72 3b 0d 09 09 | 09 62 72 65 61 6b 3b 0d | err;...|.break;.|
|00002bf0| 09 09 7d 0d 09 09 69 66 | 20 28 67 6f 74 45 76 74 |..}...if| (gotEvt|
|00002c00| 29 20 48 61 6e 64 6c 65 | 45 76 65 6e 74 28 26 65 |) Handle|Event(&e|
|00002c10| 76 29 3b 0d 09 7d 0d 09 | 0d 09 65 72 72 20 3d 20 |v);..}..|..err = |
|00002c20| 41 45 49 6e 73 74 61 6c | 6c 45 76 65 6e 74 48 61 |AEInstal|lEventHa|
|00002c30| 6e 64 6c 65 72 28 6b 43 | 6f 72 65 45 76 65 6e 74 |ndler(kC|oreEvent|
|00002c40| 43 6c 61 73 73 2c 20 6b | 41 45 4f 70 65 6e 41 70 |Class, k|AEOpenAp|
|00002c50| 70 6c 69 63 61 74 69 6f | 6e 2c 0d 09 09 67 48 61 |plicatio|n,...gHa|
|00002c60| 6e 64 6c 65 4f 41 50 50 | 55 50 50 2c 20 30 2c 20 |ndleOAPP|UPP, 0, |
|00002c70| 66 61 6c 73 65 29 3b 0d | 09 69 66 20 28 65 72 72 |false);.|.if (err|
|00002c80| 20 21 3d 20 6e 6f 45 72 | 72 29 20 72 65 74 75 72 | != noEr|r) retur|
|00002c90| 6e 20 65 72 72 3b 0d 09 | 65 72 72 20 3d 20 41 45 |n err;..|err = AE|
|00002ca0| 49 6e 73 74 61 6c 6c 45 | 76 65 6e 74 48 61 6e 64 |InstallE|ventHand|
|00002cb0| 6c 65 72 28 6b 43 6f 72 | 65 45 76 65 6e 74 43 6c |ler(kCor|eEventCl|
|00002cc0| 61 73 73 2c 20 6b 41 45 | 4f 70 65 6e 44 6f 63 75 |ass, kAE|OpenDocu|
|00002cd0| 6d 65 6e 74 73 2c 0d 09 | 09 67 48 61 6e 64 6c 65 |ments,..|.gHandle|
|00002ce0| 4f 44 4f 43 55 50 50 2c | 20 30 2c 20 66 61 6c 73 |ODOCUPP,| 0, fals|
|00002cf0| 65 29 3b 0d 09 69 66 20 | 28 65 72 72 20 21 3d 20 |e);..if |(err != |
|00002d00| 6e 6f 45 72 72 29 20 72 | 65 74 75 72 6e 20 65 72 |noErr) r|eturn er|
|00002d10| 72 3b 0d 09 65 72 72 20 | 3d 20 41 45 49 6e 73 74 |r;..err |= AEInst|
|00002d20| 61 6c 6c 45 76 65 6e 74 | 48 61 6e 64 6c 65 72 28 |allEvent|Handler(|
|00002d30| 6b 43 6f 72 65 45 76 65 | 6e 74 43 6c 61 73 73 2c |kCoreEve|ntClass,|
|00002d40| 20 6b 41 45 50 72 69 6e | 74 44 6f 63 75 6d 65 6e | kAEPrin|tDocumen|
|00002d50| 74 73 2c 0d 09 09 67 48 | 61 6e 64 6c 65 50 44 4f |ts,...gH|andlePDO|
|00002d60| 43 55 50 50 2c 20 30 2c | 20 66 61 6c 73 65 29 3b |CUPP, 0,| false);|
|00002d70| 0d 09 69 66 20 28 65 72 | 72 20 21 3d 20 6e 6f 45 |..if (er|r != noE|
|00002d80| 72 72 29 20 72 65 74 75 | 72 6e 20 65 72 72 3b 0d |rr) retu|rn err;.|
|00002d90| 09 65 72 72 20 3d 20 41 | 45 49 6e 73 74 61 6c 6c |.err = A|EInstall|
|00002da0| 45 76 65 6e 74 48 61 6e | 64 6c 65 72 28 6b 43 6f |EventHan|dler(kCo|
|00002db0| 72 65 45 76 65 6e 74 43 | 6c 61 73 73 2c 20 6b 41 |reEventC|lass, kA|
|00002dc0| 45 51 75 69 74 41 70 70 | 6c 69 63 61 74 69 6f 6e |EQuitApp|lication|
|00002dd0| 2c 0d 09 09 67 48 61 6e | 64 6c 65 51 55 49 54 55 |,...gHan|dleQUITU|
|00002de0| 50 50 2c 20 30 2c 20 66 | 61 6c 73 65 29 3b 0d 09 |PP, 0, f|alse);..|
|00002df0| 69 66 20 28 65 72 72 20 | 21 3d 20 6e 6f 45 72 72 |if (err |!= noErr|
|00002e00| 29 20 72 65 74 75 72 6e | 20 65 72 72 3b 0d 09 65 |) return| err;..e|
|00002e10| 72 72 20 3d 20 41 45 49 | 6e 73 74 61 6c 6c 45 76 |rr = AEI|nstallEv|
|00002e20| 65 6e 74 48 61 6e 64 6c | 65 72 28 6b 47 65 74 55 |entHandl|er(kGetU|
|00002e30| 52 4c 45 76 65 6e 74 43 | 6c 61 73 73 2c 20 6b 47 |RLEventC|lass, kG|
|00002e40| 65 74 55 52 4c 45 76 65 | 6e 74 49 44 2c 0d 09 09 |etURLEve|ntID,...|
|00002e50| 67 48 61 6e 64 6c 65 47 | 55 52 4c 55 50 50 2c 20 |gHandleG|URLUPP, |
|00002e60| 30 2c 20 66 61 6c 73 65 | 29 3b 0d 09 72 65 74 75 |0, false|);..retu|
|00002e70| 72 6e 20 65 72 72 3b 0d | 7d 0d 0d 0d 0d 2f 2a 2d |rn err;.|}..../*-|
|00002e80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002e90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002ea0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002eb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002ec0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 09 4d 79 41 |--------|---..MyA|
|00002ed0| 45 50 72 6f 63 65 73 73 | 41 70 70 6c 65 45 76 65 |EProcess|AppleEve|
|00002ee0| 6e 74 20 0d 09 0d 09 50 | 72 6f 63 65 73 73 20 61 |nt ....P|rocess a|
|00002ef0| 6e 20 41 70 70 6c 65 20 | 65 76 65 6e 74 2e 0d 09 |n Apple |event...|
|00002f00| 0d 09 45 6e 74 72 79 3a | 09 65 76 20 3d 20 70 6f |..Entry:|.ev = po|
|00002f10| 69 6e 74 65 72 20 74 6f | 20 65 76 65 6e 74 20 72 |inter to| event r|
|00002f20| 65 63 6f 72 64 2e 0d 09 | 0d 09 45 78 69 74 3a 09 |ecord...|..Exit:.|
|00002f30| 66 75 6e 74 69 6f 6e 20 | 72 65 73 75 6c 74 20 3d |funtion |result =|
|00002f40| 20 65 72 72 6f 72 20 63 | 6f 64 65 2e 0d 2d 2d 2d | error c|ode..---|
|00002f50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002f60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002f70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002f80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002f90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2a 2f 0d 0d 4f 53 45 |--------|-*/..OSE|
|00002fa0| 72 72 20 4d 79 41 45 50 | 72 6f 63 65 73 73 41 70 |rr MyAEP|rocessAp|
|00002fb0| 70 6c 65 45 76 65 6e 74 | 20 28 45 76 65 6e 74 52 |pleEvent| (EventR|
|00002fc0| 65 63 6f 72 64 20 2a 65 | 76 29 0d 7b 0d 09 4f 53 |ecord *e|v).{..OS|
|00002fd0| 45 72 72 20 65 72 72 20 | 3d 20 6e 6f 45 72 72 3b |Err err |= noErr;|
|00002fe0| 0d 09 0d 09 67 41 45 53 | 65 72 76 65 72 20 3d 20 |....gAES|erver = |
|00002ff0| 74 72 75 65 3b 0d 09 65 | 72 72 20 3d 20 41 45 50 |true;..e|rr = AEP|
|00003000| 72 6f 63 65 73 73 41 70 | 70 6c 65 45 76 65 6e 74 |rocessAp|pleEvent|
|00003010| 28 65 76 29 3b 0d 09 67 | 41 45 53 65 72 76 65 72 |(ev);..g|AEServer|
|00003020| 20 3d 20 66 61 6c 73 65 | 3b 0d 09 72 65 74 75 72 | = false|;..retur|
|00003030| 6e 20 65 72 72 3b 0d 7d | 0d 0d 0d 0d 2f 2a 2d 2d |n err;.}|..../*--|
|00003040| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003050| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003060| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003070| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 09 4d 79 41 45 |--------|--..MyAE|
|00003090| 52 65 73 75 6d 65 54 68 | 65 43 75 72 72 65 6e 74 |ResumeTh|eCurrent|
|000030a0| 45 76 65 6e 74 20 0d 09 | 0d 09 52 65 73 75 6d 65 |Event ..|..Resume|
|000030b0| 20 70 72 6f 63 65 73 73 | 69 6e 67 20 61 6e 20 41 | process|ing an A|
|000030c0| 70 70 6c 65 20 65 76 65 | 6e 74 2e 0d 09 0d 09 45 |pple eve|nt.....E|
|000030d0| 6e 74 72 79 3a 09 65 76 | 65 6e 74 20 3d 20 70 6f |ntry:.ev|ent = po|
|000030e0| 69 6e 74 65 72 20 74 6f | 20 65 76 65 6e 74 20 72 |inter to| event r|
|000030f0| 65 63 6f 72 64 2e 0d 09 | 09 09 72 65 70 6c 79 20 |ecord...|..reply |
|00003100| 3d 20 70 6f 69 6e 74 65 | 72 20 74 6f 20 72 65 70 |= pointe|r to rep|
|00003110| 6c 79 20 72 65 63 6f 72 | 64 2e 0d 09 09 09 64 69 |ly recor|d.....di|
|00003120| 73 70 61 74 63 68 65 72 | 20 3d 20 70 6f 69 6e 74 |spatcher| = point|
|00003130| 65 72 20 74 6f 20 65 76 | 65 6e 74 20 68 61 6e 64 |er to ev|ent hand|
|00003140| 6c 65 72 2e 0d 09 09 09 | 68 61 6e 64 6c 65 72 52 |ler.....|handlerR|
|00003150| 65 66 63 6f 6e 20 3d 20 | 72 65 66 63 6f 6e 2e 0d |efcon = |refcon..|
|00003160| 09 0d 09 45 78 69 74 3a | 09 66 75 6e 74 69 6f 6e |...Exit:|.funtion|
|00003170| 20 72 65 73 75 6c 74 20 | 3d 20 65 72 72 6f 72 20 | result |= error |
|00003180| 63 6f 64 65 2e 0d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |code..--|--------|
|00003190| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000031a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000031b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000031c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000031d0| 2d 2d 2a 2f 0d 0d 4f 53 | 45 72 72 20 4d 79 41 45 |--*/..OS|Err MyAE|
|000031e0| 52 65 73 75 6d 65 54 68 | 65 43 75 72 72 65 6e 74 |ResumeTh|eCurrent|
|000031f0| 45 76 65 6e 74 20 28 41 | 70 70 6c 65 45 76 65 6e |Event (A|ppleEven|
|00003200| 74 20 2a 65 76 65 6e 74 | 2c 20 41 70 70 6c 65 45 |t *event|, AppleE|
|00003210| 76 65 6e 74 20 2a 72 65 | 70 6c 79 2c 0d 09 41 45 |vent *re|ply,..AE|
|00003220| 45 76 65 6e 74 48 61 6e | 64 6c 65 72 55 50 50 20 |EventHan|dlerUPP |
|00003230| 64 69 73 70 61 74 63 68 | 65 72 2c 20 6c 6f 6e 67 |dispatch|er, long|
|00003240| 20 68 61 6e 64 6c 65 72 | 52 65 66 43 6f 6e 29 0d | handler|RefCon).|
|00003250| 7b 0d 09 4f 53 45 72 72 | 20 65 72 72 20 3d 20 6e |{..OSErr| err = n|
|00003260| 6f 45 72 72 3b 0d 09 0d | 09 67 41 45 53 65 72 76 |oErr;...|.gAEServ|
|00003270| 65 72 20 3d 20 74 72 75 | 65 3b 0d 09 65 72 72 20 |er = tru|e;..err |
|00003280| 3d 20 41 45 52 65 73 75 | 6d 65 54 68 65 43 75 72 |= AEResu|meTheCur|
|00003290| 72 65 6e 74 45 76 65 6e | 74 28 65 76 65 6e 74 2c |rentEven|t(event,|
|000032a0| 20 72 65 70 6c 79 2c 20 | 64 69 73 70 61 74 63 68 | reply, |dispatch|
|000032b0| 65 72 2c 20 68 61 6e 64 | 6c 65 72 52 65 66 43 6f |er, hand|lerRefCo|
|000032c0| 6e 29 3b 0d 09 67 41 45 | 53 65 72 76 65 72 20 3d |n);..gAE|Server =|
|000032d0| 20 66 61 6c 73 65 3b 0d | 09 72 65 74 75 72 6e 20 | false;.|.return |
|000032e0| 65 72 72 3b 0d 7d 0d 00 | 00 00 00 00 00 00 00 00 |err;.}..|........|
|000032f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003300| 00 00 01 00 00 00 01 54 | 00 00 00 54 00 00 00 46 |.......T|...T...F|
|00003310| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003320| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003330| 06 61 65 76 74 2e 63 b4 | 02 00 00 00 54 45 58 54 |.aevt.c.|....TEXT|
|00003340| 4d 4d 43 43 01 00 02 90 | 06 63 00 00 00 00 12 84 |MMCC....|.c......|
|00003350| 00 00 54 45 58 54 4d 4d | 43 43 01 00 02 90 06 63 |..TEXTMM|CC.....c|
|00003360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003370| 00 00 aa 4f 89 74 00 00 | 32 67 00 00 01 9a 00 00 |...O.t..|2g......|
|00003380| 00 00 0d 9c 47 72 6f 75 | 70 49 6e 4c 69 73 74 00 |....Grou|pInList.|
|00003390| 00 01 00 1c 00 00 00 00 | 11 44 52 65 6d 6f 76 65 |........|.DRemove|
|000033a0| 44 75 70 6c 69 63 61 74 | 65 73 00 00 00 01 00 1c |Duplicat|es......|
|000033b0| 00 00 00 00 16 7f 52 65 | 64 72 61 77 47 72 6f 75 |......Re|drawGrou|
|000033c0| 70 43 6f 75 6e 74 00 74 | 00 01 00 2a 00 01 00 00 |pCount.t|...*....|
|000033d0| 18 bd 52 65 6d 6f 76 65 | 47 72 6f 75 70 46 72 6f |..Remove|GroupFro|
|000033e0| 6d 55 6e 73 75 62 73 63 | 72 69 62 65 64 4c 69 73 |mUnsubsc|ribedLis|
|000033f0| 74 00 00 01 00 16 00 00 | 00 00 1d 60 41 64 64 4e |t.......|...`AddN|
|00003400| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00003410| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003420| 00 00 00 00 00 00 00 03 | 00 04 00 58 00 04 01 cd |........|...X....|
|00003430| 02 63 00 58 00 04 01 cd | 02 63 ab fa 83 61 00 00 |.c.X....|.c...a..|
|00003440| 25 e3 00 00 25 f8 00 00 | 24 68 01 00 00 00 00 04 |%...%...|$h......|
|00003450| 00 01 00 01 00 00 01 00 | 00 00 01 54 00 00 00 54 |........|...T...T|
|00003460| 00 00 00 46 01 9c 00 78 | 17 82 00 00 00 1c 00 46 |...F...x|.......F|
|00003470| 00 01 4d 50 53 52 00 00 | 00 12 4d 57 42 42 00 00 |..MPSR..|..MWBB..|
|00003480| 00 1e 03 ed ff ff 00 00 | 00 00 00 00 00 00 03 f0 |........|........|
|00003490| ff ff 00 00 00 4c 00 00 | 00 00 00 00 00 00 00 00 |.....L..|........|
|000034a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000034b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000034c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000034d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000034e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000034f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+